fehlerhafter quellcode

[jfheins]

Warum wandelst du auch um ??? Warum erschien der rote Kasten nicht ?
Wenn das Form2 erscheinen soll, wenn beides leer ist, dann geht das so:

Delphi-Quellcode:

procedure TPasswordDlg.Button1Click(Sender: TObject);
begin
  if (username.text = '') or (passwort.text = '') then 
    Form2.ShowModal;
end;

Oder mit Variablen:

Delphi-Quellcode:

procedure TPasswordDlg.Button1Click(Sender: TObject);
var
  user, pass: String;
begin
  user := username.text;
  pass := passwort.text;

  if (user = '') or (pass = '') then 
    Form2.ShowModal;
end;