[Black Raider]

Код:

procedure TFCreateSpr.Button1Click(Sender: TObject);
begin
  mt1.First;
  repeat
   dbgrid1.SelectedRows.CurrentRowSelected:=true;
    mt1.next;
  until mt1.Eof;
end;

mt1= набор данных