读取数据有关问题

Procedure TfrmEPPALB20.FormCreate(Sender: TObject);
Begin
  cds_EPPALHED := CDS_Create(CMS);
  cds_Tmp := CDS_Create(CMS);
End;

Procedure TfrmEPPALB20.FormDestroy(Sender: TObject);
Begin
  CDS_Free([cds_EPPALHED,cds_Tmp]);
End;


      sSQL :=
        '0SELECT ' +
        '   DISTINCT C021.NCMP,' +
        '   PHED.FORWARDER,' +
        '   PHED.HOSAIRBIL,' +
        '   C021.PGI_STATUS,' +
        '   PCON.CONTNO,  ' +
        '   PHED.PACKLST, ' +
        '   PHED.BILLAND, ' +
        '   PHED.MASAIRBIL,' +
        '   PHED.BROKER,  ' +
        '   PHED.ETADATE, ' +
        '   PHED.ETDDATE, ' +
        '   PHED.FLIGHTNO,' +
        '   PHED.FLIGHTDATE,' +
        '   PHED.FLIPORT,  ' +
        '   PHED.FLIGHTNO2,  ' +
        '   PHED.FLIGHTDATE2,' +
        '   PHED.FLIPORT2, ' +
        '   PADD.UPPOD,   ' +
        '   PADD.POD,   ' +
        '   PHED.APPNO,  ' +
        '   PHED.VESLNAME, ' +
        '   PHED.CUSSRELDAT, ' +
        '   PHED.VOYAGENO, ' +
        '   PHED.STOAIRPDAT,' +
        '   IHED.SPTOCUSCO,' +
        '   IHED.SPINSTCO, ' +
        '   IHED.INVSPTOCO, ' +
        '   C021.HCUNO ' +
        ' FROM ' +
        '   EPPALHED PHED, EPPALCON PCON, EPPALADD PADD, EPINVHED IHED, EPPALINV PINV, CMPPS021 C021' +
        ' WHERE ' +
        '   PHED.PACKLST = C021.EPS_PAKNO' +
        '   AND PHED.PACKLST = PCON.PACKLST ' +
        '   AND PHED.PACKLST = PADD.PACKLST(+) ' +