ADOQuery1:

SELECT * FROM kasa  WHERE datum=:datum

ADOQuery2:

SELECT * FROM uroky ORDER BY platne_od DESC

ADOQuery3:

SELECT max(datum) FROM kasa

Pod WinXP sa zobrazuje iba výsledok príkazu, ktorý používa ADOQuery2.

A v zdrojovom kóde môžu byť zaujímavé akurát nasledovné riadky (z hlavného formulára):

procedure TwndZaklad.StavPokladneClick(Sender: TObject);
begin
  DataModule1.ADOQueryKasa1.Parameters[0].Value := FormatDateTime('yyyy-mm-dd', Now);
  DataModule1.ADOQueryKasa1.Active := true;
  DataModule1.ADOQueryKasa2.Parameters[0].Value := FormatDateTime('yyyy-mm-dd', Now);
  DataModule1.ADOQueryKasa2.Active := true;
  DataModule1.ADOQueryKasa3.Parameters[0].Value := FormatDateTime('yyyy-mm-dd', Now);
  DataModule1.ADOQueryKasa3.Active := true;
  wndKasa.ShowModal;
end;