Wie eine Prozedur mit Parametern per Syncronize() aufrufen?

[himitsu]

Delphi-Quellcode:

type TMailSendThread = Class(TThread)
  ....
  private
    FSendMailsProgress: record
      OnSendMailsProgress: TSendMailsProgress;
      MailNr, MailsLeft: Integer;
      TimeRunning, TimeLeft: TTime;
    end;
    procedure DoSendMailsProgress
  end;

procedure TMailSendThread.DoSendMailsProgress;
begin
  with FSendMailsProgress do
    if Assigned(OnSendMailsProgress) then
      FOnSendMailsProgress(Self, MailNr, MailsLeft, TimeRunning, TimeLeft);
end;