Watki, wysylanie, odbieranie jak to zrobic?

Chce zrobic ze 1 watek wysyla wiadomosci na serwer, a w glownym watku przez procedure TForm1.KlientRead(Sender: TObject; Socket: TCustomWinSocket); odbiera logi z serwa (czy dobre haslo itp)
W watku po polaczeniu dalem suspend ale nic to niedalo bo powyzsza procedura nic nieodebrala (a powinna)

procedure watek.execute;
begin
...
form1.klient.active:=true;
suspend;
... //tutaj ma wysylac kolejne informacje w zaleznosci otrzymanych powyzej
end;

procedure TForm1.pop3Read(Sender: TObject; Socket: TCustomWinSocket);
begin
str:=pop3.Socket.ReceiveText;
watek1.resume;
end;

Czy moze mozna to zrobic w jakis inny sposob;