как избежать подвисания

[Juffin]

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

[Swarog]

Возможно. это факт. использую у себя в проге, у себя ожидание события от другого потока реализвал так

function TConsole.InputText: string;
begin
 fInputBufer := '';
 fInputMode := 1;
 sStatusBar1.Panels[1].Text := 'Ожидается ввод:)';
 while fInputMode <> 0 do
  begin
   sleep(50);
   Application.ProcessMessages;
  end;
 sStatusBar1.Panels[1].Text := '';
 result := fInputBufer;
end;

данная функция вызывается из параллельного потока
sleep на 50 по моему самое оптимальное

[Человек_Борща]

Для его случая События лучше подходят..