*--- Главная форма:
 TForm1 = class(TForm)
   b1: TButton;
   ag: TStringGrid;
   procedure b1Click(Sender: TObject);
 end;

*--- Нажатие на кнопку:
procedure TForm1.b1Click(Sender: TObject);
begin
 b1.Enabled := false;
 with WorkThread.Create(true) do
   try
     sag := ag;
     Resume;
     WaitFor
   finally
     Suspend;
     Free;
     b1.Enabled := true
   end;
end;

*--- Поток:
 WorkThread = class(TThread)
 private
   LogStr : string;
 protected
   procedure Execute; override;
   procedure AddLogStr;
 public
   sag : TStringGrid;
 end;

procedure WorkThread.Execute;
var
 i : integer;
begin
 for i := 1 to 10 do
   begin
     LogStr := IntToStr(i);;
     Synchronize(AddLogStr);
     Sleep(10);
   end;
end;

procedure WorkThread.AddLogStr;
begin
 sag.Cells[0, sag.RowCount-1] := LogStr
 sag.RowCount := sag.RowCount + 1;
end;

*--- Собственно, вопрос:
 Что здесь не так? Это не работает. Причем довольно странно: числа в Grid появляются, а потом вылетает exception "отказано в доступе". Помогите, пожалуйста, разобраться.

Ну про отказ в доступе я и затупил!!! Дело в следующем: вызывается Suspend уже отработавшего потока.

Осталась фигня: форма во время выполнения потока подвисает. Буду думать, как от этого избавиться. О! Похоже придумал!

Ну все! теперь пример работает как зверь! Даже при перетаскивании/изменении размеров формы числа добавляются! (А, собственно, почему бы и нет).

В общем, извините - какой-то разговор сам с собой получился. Зато задача решена.

А как сделал перерисовку окна, если не секрет?

Не секрет. Там просто ничего делать не надо . Фишка в том, что по нажатию кнопки поток надо запустить и НЕ ЖАТЬ его завершения. Тогда форма будет все прекрасно перерисовывать и реагировать на события.

Могу этот свой демо-проект кинуть на мыло. Только там  узкое место - закрытие формы в процессе работы потока. Но что-нибудь придумаю.

Цитата

Могу этот свой демо-проект кинуть на мыло.

Будь так добр!