Prior

[sveta]

Hallo Profis,
am besten schick ich euch erstmal mein Code

Delphi-Quellcode:

function  TForm1.nextEntry(t:TDatetime;id:integer):String;
var
dbtext:String;
weiter:Boolean;
tmptime:TDateTime;
begin
 DBtext := 'select * from TABELLE where ID_OBJECT='  + '''' + inttostr(id) + '''';
 with dbconnection do
    begin
      myquery.Close;
      myquery.sql.Clear;
      myquery.sql.add(dbtext);
      myquery.Open;
      
    end;
  weiter:=true;
    while (weiter) and (not myquery.Eof)do
    begin
      tmptime:= myquery.FieldByName('TIME').AsDateTime;
      if t<=tmptime then
      begin
          weiter:=false;
      end
      else
          weiter:=true;
      myquery.Next;
    end;
    
    myaquery.Prior;
    
    tmptime :=myquery.FieldByName('TIME').AsDateTime;
    result:=vartostr(tmptime)

end;

Ich möchte wissen warum Prior hier nichts tut..!
myquery.next wird einmal mehr als das was ich will ausgeführt(in der while-schleife) also möchte ich danach einen Eintrag zurückspringen es geht aber nicht und intressanterweise wenn ich anstatt prior , First schreibe dann wird genau das gemacht was ich will. kann mir jemand das erklären?!