Создание и подключение к базе данных Firebird

[artemavd]

Добрый день! Не могу найти загвоздку. Создаю и пытаюсь сразу же подключиться к созданной базе данных. Вот так вот создаю ее:

 //создаю базу данных
  OldCursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  Form1.pFIBDatabase1.DBParams.Clear;
  Form1.pFIBDatabase1.DBParams.Add('USER ''' + sEdit3.Text + '''');
  Form1.pFIBDatabase1.DBParams.Add('PASSWORD ''' + sEdit4.Text + '''');
  DBName := '';
  sEdit1.Text := Trim(sEdit1.Text);
   case CBProtocol.ItemIndex of
     1: DBName := '\\' + sEdit1.Text + '\'; { NamedPipe }
     2: DBName := sEdit1.Text + '@'; { SPX }
     3: DBName := sEdit1.Text + ':'; { TCP }
   end;
  Form1.pFIBDatabase1.DBName := DBName + sEdit2.Text;
  Form2.sStatusBar1.Panels[1].Text:=DBName + sEdit2.Text;
  Form1.pFIBDatabase1.SQLDialect := 3;

  Form1.pFIBDatabase1.CreateDatabase;
  Form1.pFIBDatabase1.Close;
  Form1.pFIBTransaction1.Active:=False;
  Screen.Cursor := OldCursor;

База данных успешно создается. Если я создаю на локальном компьютере, т.е. на своем то, указываю в качестве имени сервера (ТСР) 127.0.0.1, то в параметр DBName получается так:

127.0.0.1:D\Test.fdb

и база создается.

Теперь, я пытаюсь сразу к ней подключиться так:

  Form1.pFIBDatabase1.Close;
  Form1.pFIBDatabase1.DBParams.Clear;
  Form1.pFIBDatabase1.ConnectParams.CharSet:='WIN1251';
  Form1.pFIBDatabase1.ConnectParams.UserName:=Form2.sEdit3.Text;
  Form1.pFIBDatabase1.ConnectParams.Password:=Form2.sEdit4.Text;
  Form1.pFIBDatabase1.DBName:=Form2.sStatusBar1.Panels[1].Text;
  Form1.pFIBDatabase1.LibraryName:=ExtractFilePath(Application.ExeName) + 'FBCLIENT.DLL';
  Form1.pFIBDatabase1.SQLDialect:=3;
  Form1.pFIBDatabase1.Connected:=True;
  Form1.pFIBTransaction1.Active:=True;
  Application.ProcessMessages;

в Form2.sStatusBar1.Panels[1].Text сохраняется полный путь, т.е.

127.0.0.1:D\Test.fdb

, но при попытке подключения программа просто зависает. Раньше работало все. Сейчас не пойму почему не работает. Ожидаю конструктивных советов.