Anmelden funktioniert nicht

[Neumann]

Sieht für mich etwas ungewöhnlich aus, würde das so schreiben, mit nicht optimierten, aber hoffentlich gut verständlichem Code :

Delphi-Quellcode:

var istok:boolean:=true;
IF Trim( Edit1.text ) <> Trim( 'Admin' ) then
begin
  istok:=false; 
  ShowMessage('Benutzername ist nicht korrekt');
end else
begin
 IF Trim( Edit2.text ) <> Trim( 'Pass' ) then
 begin
   istok:=false;
   ShowMessage('BPasswort ist nicht korrekt');
 end; 
end; 
if istok then 
  Form2.show;