DLL vs TICQlib

[maxvodo.dll]

Проблема следующая.
Создаем главное приложение

...
begin
// поиск всех плагинов
  mask:=pathfodll+'*.dll';
  found:=FindFirst(mask,faAnyFile,SF);
  while found=0 do
    begin
    if SF.Name<>debug_plugin then
    begin
    DLLHandle:=LoadLibrary(PChar(pathfodll+SF.Name));
      @reg:=GetProcAddress(DLLHandle,'Register');
      if Assigned(reg) then
        begin
        currdll:=reg();
        currdll._Interface:=PForm(self_link);
        currdll._App:=_Application;
        currdll.DoCreate();
        if Assigned(currdll) then
          begin
          ListOfCommand.Add(currdll.commandname);
          ListDLL.AddObject(inttostr(DLLHandle),Pointer(currdll));
          end;
        end;
    end;
    Found:=FindNext(SF);
    end;
  FindClose(SF.FindHandle);
end;
...

И создадим DLL (в ней форма с TICQlib)

...
type
  TForm1 = class(TForm)
    client: TICQClient;
    bt_connect: TButton;
    procedure bt_connectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bt_connectClick(Sender: TObject);
begin
  client.Password:='***';
  client.UIN:=0;
  client.Login();
end;
...
//ну и естественно 2 export - reg() and unreg()
// Пусть будет класс, который создается при reg()
// содержит поля - _Interface - указатель на гл.форму _App - указатель на Application гл.формы

И в коде DLL функция класса Work .DoCreate(); делает что-то подобное

function Work.DoCreate();
begin
  form1_unit.SetApplication(_App);
  form1_unit.form1:=TForm1.Create(_App);
end;
//освобождается форма сама, при закрытии главной программы

Все это дело скомпилим. Окей.
Запустим. Найдет она dll-ку. прикрутит к главной программе. откроется форма из dll
тыкаем на кнопочку bt_connect (далее я смотрел соединение через OutposFirewall ) - появляется соединение длящееся 10-15 секунд и передавающее 10 байт.

P.S. Сам Outpost выключен. Как побороть?