erweiterte IF - Bedingung

[BadenPower]

Unter Berücksichtigung des Programmierstils des TE müsste das so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  if (     ((Edit1.Text = 'Sekretäriat') or (Edit1.Text = 'sekretäriat'))
       and (Edit2.Text = 'Faldera123')
     ) then
   begin
    Form2.Show;
    Form1.Hide
   end;

  if (     ((Edit1.Text = 'Schüler') or (Edit1.Text = 'schüler'))
       and (Edit2.Text = 'Klasse123')
     ) then
   begin
    Form3.Show;
    Form1.Hide
   end;

  if (     ( not ((Edit1.Text = 'Sekretäriat') and (Edit2.Text = 'Faldera123')) )
       and ( not ((Edit1.Text = 'sekretäriat') and (Edit2.Text = 'Faldera123')) )
       and ( not ((Edit1.Text = 'Schüler') and (Edit2.Text = 'Klasse123')) )
       and ( not ((Edit1.Text = 'schüler') and (Edit2.Text = 'Klasse123')) )
     ) then
   begin
    ShowMessage('falsch');
   end;

end;

Aber es sollte doch wohl 'Sekretariat' heissen und nicht 'Sekretäriat'.