[pesi]

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
SetLength(aa, 0);
DBGrid1.DataSource.DataSet.Last;
DBGrid1.DataSource.DataSet.First;
SetLength(bb, 0);
DBGrid2.DataSource.DataSet.Last;
DBGrid2.DataSource.DataSet.First;
end;