TTableでエラーを回避するには？

tomo 2003-06-03 01:52:39 No: 3680

いつもお世話になります。
DBGrid1にTable1（Paradox型のデータベース）の内容を表示させ、DBGrid上のあるレコードを選択し、Button1Clickで選択行のレコードをEdit1に表示させるようにしています。（また、DBNavigaterを使用し、データの編集、削除などもしています。）
そこで、データを削除した直後に、DBGrid1のレコードをClickするなどして選択することなく、Button1をClickすると、"レコード/キーは削除されました"とエラーになってしまいます。
この場合は、レコードが選択されていない場合に当たらないのでしょうか？
よろしくご指導くださいｍ（_ _）ｍ

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
//DBGrid で選択されている行をEdit1にコピーします。
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
         begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
         end;
         Edit1.Text:=s;
         s:= '';