interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IB_Process, IB_Script, IB_Components, ExtCtrls, IB_ConnectionBar,Mask,StdCtrls,
  IB_Session;//-----****This is very important*****------

type
  TForm1 = class(TForm)
    FirstConnection: TIB_Connection;
    FirstTransaction: TIB_TransactionSingle;
    ScMain: TIB_Script;
    ConnectionBar: TIB_ConnectionBar;
    procedure FirstConnectionBeforeConnect(Sender: TIB_Connection);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FirstConnectionBeforeConnect(Sender: TIB_Connection);
begin
with FirstConnection do begin
    if ( Protocol = cpLocal ) and not FileExists( DatabaseName ) then begin
      scMain.Execute;
    end;
  end;
end;
 

end.