Hallo,
ich möcht einen Adminbereich Programmieren
i
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
IF Trim( Edit1.text ) = Trim( 'Admin' ) then
else
Begin
ShowMessage('Benutzername ist nicht korreckt');
end;
IF Trim( Edit2.text ) = Trim( 'Pass' ) then
else
Begin
ShowMessage('BPasswort ist nicht korreckt');
end; Form2.show
ch bekoome bei nicht übereinstimmen jeweils eine Fehlermeldungung das Form2 wird trotzdem geöffnet.
Was habe ich falsch gemacht