procedure TForm1.FormCreate(Sender: TObject);
var
Sql:String;
sHostIp,
sPathBanco:String;
begin
Brush.Style := bsClear;
sHostIp := '127.0.0.1';
sPathBanco := 'C:\Sistema\Dados\SAC_DB.FDB';
HostParam := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SAC_GARBO.INI');
HostParam.WriteString('HOST','Address',sHostIp);
HostParam.WriteString('HOST','HostName','');
HostParam.WriteString('SERVER','DriverName','InterBase by Core Lab');
HostParam.WriteString('SERVER','DataBase',sPathBanco);
HostParam.WriteString('SERVER','UserName','sysdba');
HostParam.WriteString('SERVER','Password','masterkey');
HostParam.WriteString('SERVER','SqlDialect','3');
HostParam.WriteString('SERVER','BlobSize','-1');
HostParam.WriteString('SERVER','ErrorResourceFile',' ');
HostParam.WriteString('SERVER','LocaleCode','0000');
HostParam.WriteString('SERVER','InterBase by Core Lab TransIsolation','ReadCommited');
HostParam.WriteString('SERVER','ProductName','Interbase');
HostParam.WriteString('SERVER','DriverAssemblyLoader','CoreLab.DbxIda.DriverLoader.TCRDynalinkDriver Loader,CoreLab.DbxIda.DriverLoader,Version=1.0.0.5001,Culture=neutral,PublicKeyToken=09af7300eec2370 1');
end;