SQL Einträge nach variable auswählen

[XAguraX]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
Query1.Active:=false;
Query1.Sql.Clear;
Query1.SQL.Add('SELECT * FROM Termine WHERE Datum = :a ');
Query1.ParamByName('a').AsDate := MonthCalendar1.Date;
Query1.Active:=true;
end;