Diese Variante fand ich auch nicht schlecht (ebenfalls in Apollonius Link zu finden)
Ich glaub sowas war in diesem AsyncCalls-Projekt (oder wie das hieß) hier in der
DP
Delphi-Quellcode:
BeginSynchronize;
try
if Assigned(FOnSendMailsProgress) then
FOnSendMailsProgress(Self, MailNr, MailsLeft, TimeRunning, TimeLeft);
finally
EndSynchronize;
end;
ansonsten sollte das nach #2/#8 auch fast überall laufen