procedure GetEmplData;  var ASQLQuery:TSqlQuery;      ADsp:TDatasetProvider;  begin    ASQLQuery:=TSqlQuery.Create(nil);    ADsp:=TDatasetProvider.Create(nil);    with ASQLQuery do try      Close;SQL.Clear;      SQLConnection:=SQLConn;      SQL.Add(‘Select EmplNo, Empl From Empl‘);      Adsp.DataSet:=aSqlQuery;      cdsEmpl.Data:=adsp.Data;   finally     ADsp.Free;     ASQLQuery.Free;    end;  end;

  procedure InitLookUpSource;  var CmdText : WideString;  begin    CmdText:=‘Select Corpid, CorpNo, SName from Corps‘+#13#10            +‘where SysID=‘+IntToStr(FSysID)+#13#10    with rds_cdsCorps do begin      Data:=GetDataText(CmdText, ‘‘, [], CmdText);      AddIndex(‘Index1‘, ‘CorpID‘, [], ‘‘, ‘‘, 0);      IndexName:=‘Index1‘;    end;  end;