Exception wird nicht angezeigt

[Luckie]

Da du immer nur so Bruchstücke vom Code zeigst und man irgenwie nichts zusammenhängendes zu sehen bekommt, hier mal ein beispiel, wie man eine eigene Exception wirtft und behandelt.

Delphi-Quellcode:

type
  EInvalidPW = class(Exception);

const
  PASSWORD = 'test';

procedure CheckPWD(Pwd: String);
resourcestring
  rsInvalidPw = 'Passwort %s ist ungültig';
begin
  if Pwd <> PASSWORD then
    raise EInvalidPW.CreateFmt(rsInvalidPw, [Pwd]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    CheckPWD('tset');
  except
    on E: EInvalidPW do ShowMessage(E.Message);
  end;
end;