Bei Login auf Zugriffsverletzung reagieren ...

[halinchen]

Vielleicht so?

try...except...end;

Delphi-Quellcode:

try
if (Key = MD5_Hash2String((HashForString(EditBenutzer.Text + EditKennwort.Text)))) AND (Key <> '') then
  begin
    ShowMessage ('Sie sind angemeldet!')           
    end else
    ShowMessage ('Benutzername und/oder Kennwort falsch!');
    EditBenutzer.SetFocus;
    EditBenutzer.Text := '';
    EditKennwort.Text := '';
   ...
   end;
except
//was tun bei Fehler?
end;