procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    with pFIBDatabase1 do
      begin
        Connected := False;
        DBName := 'LOCALHOST/3050:C:\temp\1.fdb';
        LibraryName := 'c:\Program Files\Firebird\Firebird_2_5\WOW64\fbclient.dll';
        ConnectParams.CharSet := 'WIN1251';
        ConnectParams.UserName := 'SYSDBA';
        ConnectParams.Password := 'masterkey';
        SQLDialect := 3;
        Connected := True;
      end;
  except on E : Exception do
    begin
      Memo1.Lines.Add(E.Message);
    end;
  end;
end;