* fix from 7513

git-svn-id: trunk@4912 -

fcl/db/memds/memds.pp

@@ -841,7 +841,7 @@ end;
 procedure TMemDataset.SetRecNo(Value: Integer);
 begin
   CheckBrowseMode;
-  if (Value>1) and (Value<=FRecCount) then
+  if (Value>=1) and (Value<=FRecCount) then
     begin
     FCurrRecNo:=Value-1;
     Resync([]);