Prüfsoftware möglichst objektorientiert programmieren...

[Relicted]

ich mache es immer so dass ich mir ne hilfsmethode mache (private) die ich aufrufe und in der dann steht

Delphi-Quellcode:

procedure PrintPrivate( ... );
begin
  if Assigned( FProgressEvent ) then
    FProgressEvent(  ... );
end;