Datum vergleichen

[Barzy2x]

Das Problem liegt nicht darin das eine leere Datenmenge angezeigt wird. Die SQL Anweisung zeigt beim ersten Ausführen Datensätze an, wenn diese vorhanden sind. Wenn ich diese Abfrage jedoch nochmal starte wird der oben beschriebene Fahler angezeigt. Folgenden Code benutze ich zur Abfrage

Code:

procedure TTerminVerwaltung.BitBtn1Click(Sender: TObject);
begin

DatenbankOeffnen.Edit1.Text = 'Testtabelle.db'
Query1.ParamByName('CurDate').AsDate := date;
Query1.SQL.Add('SELECT Uhrzeit,Datum,Beschreibung FROM TestTabelle WHERE datum < :CurDate')
Query1.Open;
END;

Muss ich eventuell diese Abfrage in irgendeiner Form schließen, damit beim zweite Zugriff kein Fehler gemeldet wird?