Компилятор не знает что у тебя за Form1 ее надо объявить
в Unit2 где находится поток:
Код:
implementation
uses Unit1;
в Unit1 где объявлена форма нужно также объявить процедуру чтобы ее можно было использовать в Unit2:
Код:
type
TForm1 = class(TForm)
private
{ Private declarations }
public
procedure lalalal;
end;
...
procedure TForm1.lalalal;
begin
end;
Ну и в самом потоке это будет выглядеть так:
Код:
while not Terminated do
if b=true then Synchronize(Form1.lalalal)