Interbase - saber se o Interbase está rodando

// saber se o Interbase está rodando

uses IBIntf;

procedure TForm1.FormCreate(Sender: TObject);

begin

  if TryIBLoad then

    Label1.Caption := 'O IB está rodando'

  else

    Label1.Caption := 'O IB NÃO está rodando';

end;