Hallo Luckie,
die Parameter von SplitError fehlen in der Implementierung.
Delphi-Quellcode:
procedure TForm1.SplitError(Sender: TObject; ECode: Integer; EMessage:
String);
var
s:
String;
begin
s := '
Fehlercode: '+IntToStr(ECode)+#13#10;
s := s + EMessage;
Messagebox(
Handle, PChar(s), '
Fehler', MB_ICONSTOP);
end;