TThread.Synchronize + Param

[Nic2012]

Hallo,
das aus http://www.uweraabe.de/Blog/2011/01/...th-parameters/ genannte Beispiel

Code:

procedure TMyThread.CallMyProgress(PercentComplete: Integer);
begin
  if GetCurrentThreadId = MainThreadID then begin
    if Assigned(FOnMyProgress) then
      FOnMyProgress(PercentComplete);
  end
  else begin
    Synchronize(
      procedure
      begin
        CallMyProgress(PercentComplete);
      end);
  end;
end;

ist was ich suche, ich bin mir aber nicht sicher, ob sich das auch mit einer alten Delphi 7 Prof. Version benutzen lässt ?

Gruß, Nic