procedure TForm1.FormCreate(Sender: TObject);
begin
...
DBGrid1.DataSource.DataSet.AfterScroll := DataSetAfterScroll;
end;
procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
begin
Edit1.Text := tbName.AsString; Edit2.Text := tbCapital.AsString;
Edit3.Text := tbContinent.AsString;
Edit4.Text := tbArea.AsString;
Edit5.Text := tbPopulation.AsString;
end;
...