Moin moin,
du könntest in Form1 eine Botschaftsmethode implementieren.
Aus deinem Thread schickst du dann per SendMessage entsprechende Nachrichten an Form1.
z.B.
Delphi-Quellcode:
//..
const
CHANGE_LABEL_CAPTION = WM_USER + 222;
//..
private
procedure ChangeLabelCaption(var Msg: TMessage); message CHANGE_LABEL_CAPTION;
//..
procedure TForm1.ChangeLabelCaption(var Msg: TMessage);
begin
With Msg do begin
TLabel(FindComponent('Label' + IntToStr(WParam))).Caption := String(LParam);
end;
end;
//..
{
Aus der ThreadFunction dann per
SendMessage((Form1.Handle, CHANGE_LABEL_CAPTION, 1, Integer(PChar('Neuer Text'))););
}
ist nicht die eleganteste Methode, sollte aber funktionieren...