Begin index:=1; while index>0 do

begin SendMessage(Form1.Edit1.Handle, WM_SETTEXT, 0,

Integer(PChar(IntToStr(index))));
Inc(index);
if index>100000 then

index:=0; if terminated then exit; end; end;

Как видишь, теперь у нас вместо метода Synchronize генерируется событие на обновления компонента TEdit. В качестве второго параметра я указываю тип сообщения WM_SETTEXT – обновить информацию. Третий параметр равен нулю. В последнем параметре нужно указать значение, которое нужно установить. Вот тут есть небольшая сложность. У нас значение представлено в виде целого числа, но нужно превратить его в PChar. Для этого я сначала конвертирую переменную index в строку (IntToStr), потом привожу его к типу PChar и тут же указываю размер Integer. Сложно? Зато не надо ничего синхронизировать.

На компакт диске, в директорииПримерыГлава 17Thread2ты можешь увидеть пример этой программы.