diff --git a/fcl/db/memds/memds.pp b/fcl/db/memds/memds.pp
index 57a8af183f..a5ac67de98 100644
--- a/fcl/db/memds/memds.pp
+++ b/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([]);