[ecfisa]

Empezado por anubis

Gracias ecfisa.
Lo unico que queria era sacar una imagen diciendo que espere pero la consulta bloquea la aplicacion en lo que tarda en responder. Nicon u show form sirve

Hola anubis.

Entonces vuelvo a retomar la idea que te sugerí en el mensaje #9. Ahora crea otro form, quitalo de autocreate forms y agregale un Label, StaticText o el componente que te guste para mostrar el mensaje "Intentando conectar con la base de datos". Para el ejemplo llamémoslo frmMsgWait.

En el DataModule:

Código Delphi [-]
...
implementation

uses Windows, Forms,
     UnitMsgWait; // Formulario del mensaje

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  frmMsgWait:= TfrmMsgWait.Create(Application);
  frmMsgWait.BorderStyle:= bsNone;
  frmMsgWait.Show;
  Application.ProcessMessages;
  IBDatabase.DatabaseName := 'UN_SERVER:C:\UN_PROGRAMA\UNA_BD.FDB';
  IBDatabase.Params.Clear;
  IBDatabase.LoginPrompt:= False;
  IBDatabase.Params.Add('user_name=sysdba');
  IBDatabase.Params.Add('password=masterkey');
  try
    IBDatabase.Open;
  except
    MessageBox(0, 'No se pudo establecer la conexión con la base de datos',
      '', MB_ICONERROR);
    Application.Terminate;
  end;
  frmMsgWait.Close;
end;
...

El ejemplo esta redactado en Delphi/IBX que son los componentes que uso, pero creo que en líneas generales tiene muy poca diferencia con Lazarus/Zeos.
Saludos