Teraz mi zas vypisuje chybu 'Cannot convert 1857 to a date' v tomto riadku:

DataModule1.ADOStoredProc.Parameters.ParamByName('newPohladavky').Value := DataModule1.ADOQuery.FieldByName('Pohladavky').Value;

procedure TwndZaklad.FormActivate(Sender: TObject);
begin
  maxDatum := DataModule1.ADOQueryStartUp.FieldByName('Datum').Value;
  if (maxDatum > Date) then Application.Terminate;
  if (maxDatum < Date) then begin
    DataModule1.ADOStoredProc.ProcedureName := 'KASA_ZALOZ_NOVY_DEN';

    DataModule1.ADOStoredProc.Parameters.ParamByName('newDatum').Value := Date;

    DataModule1.ADOQuery.SQL.Clear;
    DataModule1.ADOQuery.SQL.Add('SELECT pohladavky AS Pohladavky FROM kasa WHERE datum='+FormatDateTime('yyyy-mm-dd', maxDatum));
    DataModule1.ADOQuery.Active := true;
    DataModule1.ADOStoredProc.Parameters.ParamByName('newPohladavky').Value := DataModule1.ADOQuery.FieldByName('Pohladavky').Value;

    DataModule1.ADOQuery.SQL.Clear;
    DataModule1.ADOQuery.SQL.Add('SELECT stav AS Stav FROM kasa WHERE datum='+FormatDateTime('yyyy-mm-dd', maxDatum));
    DataModule1.ADOQuery.Active := true;
    DataModule1.ADOStoredProc.Parameters.ParamByName('newPocStav').Value := DataModule1.ADOQuery.FieldByName('Stav').Value;

    DataModule1.ADOStoredProc.Active := true;
    DataModule1.ADOStoredProc.ExecProc;

    wndKasa.ShowModal;
  end;
end;