[Uniq!]

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ADOConnection1.DataSetCount - 1 do
  begin
    ADOConnection1.DataSets[i].Open;
    Caption := Format('Загружаю %s', [ADOConnection1.DataSets[i].Name]);
    Sleep(1000);
  end;
end;

Мне понравилось то, что можно перебрать все привязанные к ADOConnection DataSet'ы.

Sleep() для наглядности (в реальном приложении его нет)