1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var pas: string;

begin
  If name.ItemIndex = 0
    then 
      pas := 'passwort'
If passwort.Text = pas
   then begin
      Hauptform.Show;
      PasswortForm.Hide;
If passwort.??? < 4   // Was muss ich ihm hier sagen, das er die fehlermeldung bringt?
   then
     Passwort.text := 'fehlermeldung';					

1:
2:
3:

end
else
Passwort.text := 'falsches Passwort';					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var pas : String; 
begin 
  If name.ItemIndex = 0 then pas := 'passwort' 
  if (passwort.Text <> pas) or (length(passwort.text) < 5) then ShowMessage('passwort ungültig oder zu kurz') else
    begin
      Hauptform.Show; 
      PasswortForm.Hide; 
    end;
end;