Invalid use of keyword. Token .....

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Gelson62.

Die Fehlermeldung rührt daher, dass du dein Datum nicht als String-Literal in das Statement eingefügt hast - QuotedStr(DateToStr(DateTimePicker3.Date)) wäre richtig gewesen. Da du aber oft erst Handbücher wälzen musst um heraus zu finden, welches Format beim Datum erwartet wird, ist es wirklich besser, wenn du mit Parameterübergabe arbeitest:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  DBGrid1.DataSource := DataSource4;
  with Query1 do
  begin
    SQL.Text := 'Select * from Kunde.DB where Request_Formular = :datum';
    Params.ParamByName.AsDateTime := Trunc(DateTimePicker3.Date);
    // RequestLive := True; // besser im Object Inspector setzen
    Open;
  end;
end;

Freundliche Grüße vom marabu