guter code ? Infos an den user ausgeben

[bernhard_LA]

wir sind am überlegen in jede größere Routine unserer GUI folgenden Code einzubauen um dem Benutzer ein Feed Back über den Stand der Dinge zu liefern
Ist dies guter Programmierstil, gibt es eine bessere Lösung

Delphi-Quellcode:

procedure TMyForm.OpenWindowClick(Sender: TObject);
var ....

begin
  StatusBar.simpletext := ' jetzt gehts los ....'
  MyClass := TClass.Create;
  try
    try
        { *******    }
        {   hier steht dann code ...  irgend einen Klassenaufruf  }
        MyClass.DoSomething( ...);
        StatusBar.simpletext := 'alles ging gut ';

        AddtoLogdata('routine erfolgreich', 'Name der Routine');
        { *******  }   
    exception

    on e : Exception
           begin
            AddtoLogdata('routine leider nicht erfolgreich', 'Name der Routine');
           end; 
  finally
  MyClass.Free;
  StatusBar.simpletext := 'jetzt fertig ';
  end;
end;

end;