type
  TBerechnungsThread = class(TThread)
  private
    InternX: Integer; // Interne Variable für die Berechnung
    procedure SyncX; // Synchronisiert InternX mit ExternX
  protected
    procedure Execute; override;
  public
    ExternX: Integer; // Externe Variable (thread-sicher über Synchronize)
    OnBerechnungFertig: TNotifyEvent;
    constructor Create;
  end;

constructor TBerechnungsThread.Create;
begin
  inherited Create(True); // Thread startet pausiert (Suspended=True)
  FreeOnTerminate := True; // Automatisch nach Beendigung freigeben
  OnBerechnungFertig := NIL;
  InternX := 0;
  SyncX; // auch ExtenX korrekt initialisieren, Synchronize brauchen wir hier noch nicht(?)
end;

procedure TBerechnungsThread.SyncX;
begin
  FExternX := InternX; // Sicherer Transfer in den Hauptthread
end;

procedure TBerechnungsThread.Execute;
begin
  // Beispielhafte Berechnung (hier einfach nur Zuweisung)
  InternX := Random(1000); // Zufallszahl als Beispiel

  // Synchronisiere den Wert von InternX zu ExternX
  Synchronize(SyncX);

  // Falls ein Ereignis registriert ist, rufe es im Hauptthread auf
  if Assigned(OnBerechnungFertig) then
    Synchronize(procedure begin OnBerechnungFertig(Self); end);
end;


// Hauptprogramm:
procedure TForm1.BerechnungAbgeschlossen(Sender: TObject);
begin
  ShowMessage('Berechnung abgeschlossen! ExternX = ' + IntToStr(TBerechnungsThread(Sender).ExternX));
end;

procedure TForm1.StartThread;
var
  Thread: TBerechnungsThread;
begin
  Thread := TBerechnungsThread.Create;
  Thread.OnBerechnungFertig := BerechnungAbgeschlossen; // Ereignis setzen
  Thread.Start; // Thread starten
end;