erweiterte IF - Bedingung

[DeddyH]

Das müsste dann logisch diesem hier entsprechen:

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

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

  else
   begin
    ShowMessage('falsch');
   end;

end;

[edit] Zu dem Zugriff auf die globale Form1-Variable sag ich mal nichts. [/edit]