[mskvkin]

Когда я такое делал я брал и создавал новую форму на ней писал типа программа подключается к бд у формы в событие:

Код:

procedure TForm2.FormCreate(Sender: TObject);
begin
  FormStyle:=fsStayOnTop;
end;

у компонента через который подключаешь:

Код:

procedure TDM1.UniConnection1BeforeConnect(Sender: TObject);
begin
Application.ProcessMessages;
  Form2.Visible:=True;
end;

procedure TDM1.UniConnection1AfterConnect(Sender: TObject);
begin
  Application.ProcessMessages;
  Form2.Visible:=False;
end;

procedure TDM1.UniConnection1Error(Sender: TObject; E: EDAError;
  var Fail: Boolean);
begin
  Application.ProcessMessages;
  Form2.Visible:=False;
end;

после чего у тебя не будет вида как будто приложение повисло такое же пропиши у компонента Table или Query в зависимости от того через что ты подключаешься.