extrahieren von Zeit aus TDatetime

[robgoe]

Ich habe jetzt folgende Anweisung, welche zumindest ohne Fehler durchläuft.

ADOQuery1.SQL.Text := 'Select * from z_arbZeit where timeValue(:Zeit) = timeValue(:Zeit1)';

ADOQuery1.Parameters.ParamByName('Zeit').Value := DateTimeToStr(ADOQuery1.FieldByName('TStart').AsDa teTime);

-> Wenn ich FieldByName('TStart').ASString mache, kommt Fehlermeldung mit "Datentypen im Kriterienausdruck unverträglich".
Darum den Umweg über DateTimeToStr('....

ADOQuery1.Parameters.ParamByName('Zeit1').Value := '07:30:00';
ADOQuery1.Prepared := True;
ADOQuery1.active := True;

showmessage(IntToStr(ADOQuery1.RecordCount)) --> 0 Datensätze
Diese Uhrzeit gibt es aber.
was stimmt jetzt noch nicht.

Gruß