Programm läuft bei mir unter WinXP aber nicht beim Kunden

[Klaus01]

.. das sollte in etwas so gehen:

Delphi-Quellcode:

procedure TForm1.myExceptionHandler(sender: TObject; E: Exception);
begin
  showMessage((sender as TObject).ClassName + '-' +E.Message);
  // oder eine andere Fehlerbehandlungsroutine
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnException := myExceptionHandler;
end;

Grüße
Klaus