Значение в Label

[coolle]

Таким образом тоже программа с ошибкой вылетает...(((
Надо синхронизировать потоки с Label а как это делать?

[Sibedir]

Код, уважаемый, код. Не весь проект, конечно, а то, что относится к сути.

[coolle]

я же написал выше код... какой ещё то нужно. Может я чего то не понимаю.

[Sibedir]

Может я чего то не понимаю.

Да. Конкретно то, что мало кому хочется за вас делать работу. Если вам лень выложить здесь часть кода, то другим лень за вас его написать. Поверьте, в 80% случаев присутствие исходного кода приводит к решению задачи. Это просто напросто прилекает большее колличество участников.

[maxionans]

Подсказываю про синхронизацию:

  TMyThread = class(TThread)
  private
    FCounter : Integer;
  ...
  end;

procedure TMyThread.UpdateView;
begin
  Label1.Caption := FloatToStr( FCounter );
end;

procedure TMyThread.Execute;
begin
  FCounter := 0;
  repeat 
    Inc( FCounter );
    Synchronize( Self, UpdateView );
  until Terminated;
end;

[coolle]

Всем спасибо вроде заработало.