[Alegun]

Сообщение от poli-smen

...А вообще массив здесь так и напрашивается...

Точно

Код:

var
errcnt: integer = 3;

ms: array[0..2] of array[0..4] of string =
 (('Артём','Максим','Александр','Владислав','Анатолий'),
  ('artem','maxim','sasha','vlad','tolik'),
 ('Здравствуйте, Артём! У вас высший уровень доступа!',
  'Здравствуйте, Максим! Вам доступны секретные данные!',
  'Здравствуйте, Александр! Вам доступны открытые данные!',
  'Здравствуйте, Владислав! Вам доступны открытые данные!',
  'Здравствуйте, Анатолий! Вам доступны секретные данные!'));

 procedure TForm1.Button1Click(Sender: TObject);
var
user, pwd, i :integer;
begin
 user:= 0;
 pwd:= -1;

 for i:= 0 to 4 do 
  begin
   if ComboBox1.Text  =  ms[0,i] then user:= i;
   if Edit1.Text =  ms[1,i] then pwd := i;
  end;

 if pwd >= 0 then
  begin
  if user = pwd then
  begin

  { case user of
   0: что-то делаем для каждого пользователя
   1:
   2:
   3:
   4:
   end;
   }

  errcnt:= 3;

  ShowMessage(ms[2, user]);
  end;

  end else
  begin
  Dec(errcnt);
  if errcnt = 2 then ShowMessage('Пароль введен не верно, осталось 2 попытки!');
  if errcnt = 1 then ShowMessage('Пароль введен не верно, осталась 1 попытка!');
  if errcnt = 0 then form1.Close;
  end;

end;

проще стало по-новой набрать чем в коде копаться, добавьте пжлст не достающее сами

З.Ы. Посмотрел архив - у меня форматёр завис намертво кстати, у компонента Edit есть свойство PasswordChar, замените #0 на * и будут звёздочки вместо пароля