[supernewbie]

блин, если там есть то о чём я грю то давай, а то у всех пайпы не ждут ответа от серва

Добавлено через 18 минут
пля

hTh:cardinal;

procedure Test;
begin
hTh:=GetCurrentThread;
SuspendThread(GetCurrentThread);
MessageBox(0, 'Resumed', '', 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  c:Cardinal;
begin
CreateThread(nil, 0, @Test, nil, 0, c);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ResumeThread(hTh);
end;

почему жму на кнопку и нет месаджа?