type TmyThread=class TThread
      ...
      procedure uebergeben;
      ...
      zu_uebergeben:string;
      ...
end;
...

procedure Tmythread.uebergeben;
begin
   referenzform.edit1.text:=zu_uebergeben;
end;


procedure TmyThread.execute
begin
  ...
  zu_uebergeben:=irgendetwas
  ...
  synchronize(uebergeben);
  ...
end;