BOF und EOF nach Locate

[QuickAndDirty]

Delphi-Quellcode:

Procedure TForm1.Buuton1Click(Sender:Tobject);
begin
  If not assigned(q) then
    q := tQuery.create(self);
  q.Databasename := 'MeineDb';
  q.SQL.Text := 'Select * from MeineTabelle Order By ID';
  q.open;
  Showmessage('offen! BOF:'+Booltostr(q.Bof,true)+' EOF:'+Booltostr(q.Eof, true));
  // Mein Ergebnis= offen! BOF:True EOF:False
  If Locate('ID',1,[]) then
    Showmessage('gefunden! BOF:'+Booltostr(q.Bof,true)+' EOF:'+Booltostr(q.Eof, true));
  // Mein Ergebnis= gefunden! BOF:False EOF:False
  q.close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var Bm:Pointer;
begin
  if not assigned(q) then
    q := Tquery.create(self);
  q.DatabaseName := 'MeineDb';
  q.SQL.text :='SELECT * FROM MeineTabelle ORDER BY ID';
  q.Open;
  BM := q.GetBookmark;
  q.Close;
  q.Open;
  q.GotoBookmark(bm);
  Showmessage('bm! BOF:' + Booltostr(q.Bof,True) + ' EOF:' + Booltostr(q.Eof,True));
  //Mein Ergebnis= bm! BOF:False EOF:False
  q.Close;
end;

Hm, komisch! Hat jemand was anderes?