Unit in Thread packen?!

[NicoDE]

Die Execute-Methode wird beim Create aufgerufen. Der Code könnte so aussehen:

Delphi-Quellcode:

var
  ScanThread: TScanThread;
begin
  ScanThread := TScanThread.Create(True);
  try
    ScanThread.FreeOnTerminate := False;
    ScanThread.Resume();
    ScanThread.WaitFor();
    // ...Daten aus dem Thread holen...
  finally
    ScanThread.Free();
  end;
end;