Безопасное отображение статуса в программе (многопоточной)

[Puhovoi]

Доброго времени суток.

Интересует вопрос, как отображать текущий статус работы программы, если используется многопоточность.

Допустим, label1 - строка статуса.

Из потока вызов делается сл. образом:

crit.enter; // criticalsection
form1.label1.caption := 'state';
crit.leave;

Возникает проблема - программа неумолимо виснет (когда раньше, когда позже). При использовании statusBar вроде бы проблемы нет, но его использовать не могу по ряду причин.

При таком вызове -

synchronize (procedure 
begin 
form1.label1.caption := 'state';
end);

... подвисает головная форма, а application.processmessages каждый раз вызывать ну совсем не здорово.

Как выйти из ситуации?

Заранее спасибо за ответы.

[veniside]

Из потока вызов делается сл. образом:

Критическую секцию нафиг, любой код, работающий с VCL, заворачивам в процедуру, вызываем эту процедуру через TThread.Synchronize();

подвисает головная форма

Нечему там подвисать, ищите косяки у себя.

[Puhovoi]

Весьма странно. Попробовал вышеприведенный код (2) - все заработало, ничего не виснет, хотя ранее были явные проблемы (видимо, при количестве потоков больше тысячи обращение к synchronize были крайне частыми, поэтому форма подвисала).

[veniside]

Сообщение от Puhovoi

при количестве потоков больше тысячи

хм.. самое время, имхо, что-то пересмотреть в программе. Я не говорю, что число потоков должно быть обязательно = число ядер * количество процов + 1, но к этому надо стремиться. У самого бывает до 50 потоков, но > 1000.. И они все ломятся обновлять статус? Synchronize() и так не самый удачный костыль для использования, а если вызывать его из 1000 потоков, это будет просто марш инвалидов какой-то.