Hallo,
schreibe eigene Funktion MBError,
die intern das gewünschte tut.
Delphi-Quellcode:
procedure MBError(const Msg1: String);
begin
Screen.Cursor:= crDefault;
MessageDlg(Msg1, mtError, [mbOk], 0);
end;
Und die Funktino kannst du dann überladen,
um ähnliche Sachen anzuzeigen.
Heiko