procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.First;
  While not Table1.Eof do
    begin
      DBGrid1.SelectedRows.CurrentRowSelected := True;
      Table1.Next;
    end;
end;

///////////////////////////////////////////////////////////////////////

위에 처럼 하면 됩니다.

물론 dgRowSelect 와 dgMultiSelect를 true로 하시구요..

그럼 이만..