Sperren: Exeption wenn auf letztem Datensatz

[Gambit]

Hallo,

meine Datenbank öffnet schreibgeschützt, also nichts ist editierbar. Nun habe ich eine Routine eingebaut, die den Schreibschutz aufhebt, damit sich ZB DBEdits editieren lassen:

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject); 
var pos: TBookmark; // Lesezeichen 
begin 
  pos:= Query1.GetBookmark; // Position merken 
  Query1.Active:= false; 
  if CheckBox1.Checked= true then Query1.RequestLive  := false //sperren 
  else Query1.RequestLive := true; // Sperre aufheben 
  Query1.Active:= true; 
  Query1.GotoBookmark(pos); // Position wiederherstellen 
end;

Das funzt soweit auch ganz gut, es sei denn, ich stehe gerade auf dem letzten Datensatz. Wenn ich dann sperren oder entsperren will bekomme ich ein Exeption mit der Fehlermeldung:

Gitternetz außerhalb des zulässigen Bereichs.

Wie kommt denn das und wie kann man dem abhelfen?

Gruß

Gambit