procedure BROWB.CUSGSMERG;
var    i,nTotCnt, nTotUprc : Integer;
     PCUSRecord : Pcuslist;

begin
    try
         for i := 1 to SGSELF2.RowCount-1 do
         begin
         if  sgself2.cells[1,i]='' then exit;
         New(PCUSRecord);
         PCUSRecord^.iCUSCD := SGSELF2.Cells[1,I];
         PCUSRecord^.iGSCD := EDGSCD.TEXT;
         PCUSRecord^.iCNT := strtoint(SGSELF2.Cells[4,I]);
         BROWA.CUSGSList.Add(PCUSRecord);
         end;

    except
         on E: Exception do ShowMessage(E.Message);
    end;
end;
위과 같이 만들었는데 BROWB 에서 어떤 내용을 BROWA의 리스트로 저장을
할려고 하는데
BROWA.CUSGSList.Add(PCUSRecord); 이 부분에서 에러가 발생합니다.
원인을 알고 싶습니다.