Merged revisions 4912 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
  r4912 | marco | 2006-10-14 20:24:24 +0200 (Sat, 14 Oct 2006) | 2 lines
  
   * fix from 7513
........

git-svn-id: branches/fixes_2_0@4913 -

fcl/db/memds/memds.pp

@@ -824,7 +824,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([]);