Methode mit Synchronize mit Parametern aufrufen

[Luckie]

Ich habe eine Klasse von TThread abgeleitet. In dieser Klasse habe ich Ereignisse, die ich mit dem Hauptthread synchronisieren muss. Diese Ereignisse haben aber noch Parameter (Um einen Fortschritt anzuzeigen zum Beispiel.). das hab eich so gelöst:

Delphi-Quellcode:

type
  TOnProgress = procedure(Sender: TObject; PercentDone: Integer) of object;
  TOnFinish = procedure(Sender: TObject) of object;
  TSave = class(TThread)
  private
    FFilename: string;
    FIEVect: TImageEnVect;
    FOnProgress: TOnProgress;
    FOnFinish: TOnFinish;
    procedure SetFilename(const Filename: string);
    function GetFilename: string;
    procedure SetIEVect(IEVect: TImageEnVect);
    function GetIEVect: TImageEnVect;
    procedure CompressFiles(Files: TStrings; const Filename: string);
    procedure DecompressFiles(const Filename, DestDirectory: string);
    procedure DoProgress;
  public
    property Filename: string read GetFilename write SetFilename;
    property IEVect: TImageEnVect read GetIEVect write SetIEVect;
    property OnProgress: TOnProgress read FOnProgress write FOnProgress;
    property OnFinish: TOnFinish read FOnFinish write FOnFinish;
    procedure Execute; override;
  end;

Delphi-Quellcode:

procedure TSave.DoProgress(PercentDone: Integer);
begin
  if Assigned(OnProgress) then
    OnProgress(self, 0);
end;

Delphi-Quellcode:

pd := (i * 100) div Files.Count;
Synchronize(DoProgress(pd));

Jetzt meckert aber Delphi, dass es keine überladene Methode von Synchronize gäbe, die mit diesen Parametern aufgerufen werden könnte. Wie kann ich jetzt die Parameter weiterreiche ohne über eine zusätzliche lokale Variable gehen zu müssen?