Einfach nach dem ShowMessage ein Exit einfügen, damit die Porzedure im Fehlerefall verlassen wird. Als Alternative kannst du auch anstelle von ShowMessage eine
Exception auslösen. Damit wird die Prozedure auch sofort verlassen. Im foglenen Beispiel habe ich deinenn Code mal noch soweit angepasst, dass du da keine leere "if else" Bedingung hast:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IF Trim( Edit1.text ) <> '
Admin'
then // Trim ist bei den Konstanten Strings 'Admin' und 'Pass' überflüssig
Begin
// Entweder so:
ShowMessage('
Benutzername ist nicht korreckt');
Exit;
end;
IF Trim( Edit2.text ) <> '
Pass'
then
Begin
// ... oder mit einer Exception so:
raise Exception.Create('
BPasswort ist nicht korreckt');
end;
Form2.show;
Noch ein Tipp: Benenne alle Komponenten, die du im Code irgendwie ansprichst, mit einem verstänldiche nNamen. Anstatt Edit1 edtLoginName und Edit2 edtPassword. Auch die Form2 solltest du entsprechend benennen.