Delphi работа с потоками

[-Jack-]

Всем доброго времени суток. Структура части моей программы

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    label1: Tlabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
 UpdateThread=class(TThread)
  private
    count: Integer;
  protected
    procedure Execute;override;
    procedure Connection;
    procedure Updating;
 end;

...

procedure UpdateThread.Execute;
begin
  ...
  StartMyFunction();
  ...
end;

В новом юните прописана сама функция - StartMyFunction();
StartMyFunction - специально вынесена в отдельный юнит и находится не в самом потоке, т.к. запускается с различными параметрами несколько раз ... ( для экономия места и для того, чтобы код не дублировать несколько раз )

И вся проблема в том, что функция StartMyFunction ссылается на объекты формы Form1 -label1, Memo1, Memo2 и т.д.

И при изменении label1.caption происходит ошибка - текст в самом label1 становится жирным при обновлении.

Можно ли это как нибудь подправить ...

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

Можно. Вызывайте её в Synchronize.

[-Jack-]

Это да, но как я понимаю, вот, так скажем, поправку нужно произвести в структуре юнит с функцией StartMyFunction.

Но если вызывать функцию так

procedure UpdateThread.Execute;
begin
  ...
  Synchronize(StartMyFunction());
  ...
end;

То вся программа подвисает при выполнении этой функции

[northener]

То вся программа подвисает при выполнении этой функции

Значит функционал этой функции надо разделить на две части. Часть выполняющую основную работу и часть связанную с визуализацией. В Synchronize обернуть нужно будет только вторую часть.