DLL и сокеты

[Johnson]

Здравствуйте, уважаемые!
Помогите решить проблему...

Есть приложение-1, оно поднимает сервер на TServerSocket и внедряет библиотеку в чужой процесс.
Есть Библиотека, она поднимает клиент и пытается слать инфу из чужого процесса Приложению-1.
Есть собсно само Приложение-2, исходник коего я не знаю, но внедряю в него свою библиотеку.

Сервер слушает обычно:

procedure TDLLInjectForm.SockClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Sock: Client connected!');
end;
procedure TDLLInjectForm.SockClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Client Disconnected!');
end;
procedure TDLLInjectForm.SockClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  Memo1.Lines.Add('Client Error');
end;
procedure TDLLInjectForm.SockClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('ClientRead');
  if Socket.ReceiveLength>0 then Memo1.Lines.Add(Socket.ReceiveText);
end;
procedure TDLLInjectForm.SockListen(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Сервер слушает');
end;

Принимает коннекты от другого приложения. Принимает текст. Всё отлично...

Клиент в библиотеке:

{ TSockClass }
procedure TSockClass.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  ShowMessage('ClientConnect');
  Sock.Socket.SendText('sdgsdfhgdfhdjfgjfjghjghjgh');
end;
procedure TSockClass.ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin

end;
procedure TSockClass.ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin

end;
procedure TSockClass.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin

end;

begin
  SockClass:=TSockClass.Create;
  Sock:=TClientSocket.Create(nil);
  Sock.Address:='127.0.0.1';
  Sock.ClientType:=ctNonBlocking;
  Sock.Port:=5678;
  Sock.OnConnect:=SockClass.ClientConnect;
  Sock.OnDisconnect:=SockClass.ClientDisconnect;
  Sock.OnError:=SockClass.ClientError;
  Sock.OnRead:=SockClass.ClientRead;

  // кучакода
end.

Мессага не вылазит у приложения-2, приложение-1 не сообщает о подключении клиента.
Тот же самый код, но из приложения-3 (тестового), принимает подключения и текст...

Тип подключения и порт указаны верно. Код просто скопирован из другого приложения (оттуда, где он работал)

В чем может быть дело? в библиотеке не работают сокеты?

[BOBAH13]

А это уже не актуально http://programmersforum.ru/showthread.php?t=129956 ?

[Johnson]

актуально, просто я не знаю к какому разделу это больше относится...