Von Thread auf Edit-Feld zugreifen?

[TheFirstChoice]

Erst einmal danke für deine Antwort.

Nun habe ich es so:

(Form1/Unit1)

Code:

  form := TTest.Create;

  form.fForm := TForm2.Create(nil);
  form.fForm.Left := Random(Screen.Width - Form2.Width) + 1;
  form.fForm.Top := Random(Screen.Height - Form2.Height) + 1;
  form.sInfo := 'Info String';
  form.fForm.show;

(Form2/Unit2)

Code:

var
  Form2: TForm2;
  form: TTest;

implementation

Code:

procedure TestThread();
var
  s: string;
begin
  s := form.sinfo;
  // Hier soll das Editfeld den Wert von "s" bekommen.
end;

procedure TForm2.FormShow(Sender: TObject);
var
  id:dword;
begin
  beginthread(nil, 0, @TestThread, nil, 0, id);
end;

Form2.Edit1.Text ist ja völlig falsch, das ist klar.
Ist der Anfang so richtig? Habe bisher nicht viel mit Threads gearbeitet, sorry also

Edit:
Beim Aufruf von Synchronize bekomme ich ständig die Meldung:

Zitat:

[DCC Fehler] Unit2.pas(47): E2066 Operator oder Semikolon fehlt