[Aks67rus]

Всё,я исправил. А можете помочь с этим... При не правильном вводе пароля, показывает ShowMessage по всем пользователям а не по одному...как надо...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
p,p1,p2,p3,p4:integer;
st,par:string;
begin
st:=ComboBox1.Text;
par:=Edit1.Text;
if (st='Артём') and (par='artem') then
begin
  ShowMessage('Зравствуйте, Артём! У вас высший уровень доступа!');
  RadioButton1.Visible:=true;
  RadioButton2.Visible:=true;
  RadioButton3.Visible:=true;
  RadioButton4.Visible:=true;
end
else
begin
  p:=p+1;
  if p=1 then ShowMessage('Пароль введен не верно, осталось 2 попытки!');
  if p=2 then ShowMessage('Пароль введен не верно, осталось 1 попытка!');
  if p=3 then form1.Close;
end;

if (st='Максим') and (par='maxim') then
begin
  ShowMessage('Зравствуйте, Максим! Вам доступны секретные данные!');
  RadioButton1.Visible:=true;
  RadioButton2.Visible:=true;
  RadioButton3.Visible:=true;
  RadioButton4.Visible:=false;
end
else
begin
  p1:=p1+1;
  if p1=1 then ShowMessage('Пароль введен не верно, осталось 2 попытки!');
  if p1=2 then ShowMessage('Пароль введен не верно, осталось 1 попытка!');
  if p1=3 then form1.Close;
end;

if (st='Александр') and (par='sasha') then
begin
  ShowMessage('Зравствуйте, Александр! Вам доступны открытые данные!');
  RadioButton1.Visible:=true;
  RadioButton2.Visible:=false;
  RadioButton3.Visible:=false;
  RadioButton4.Visible:=false;
end
else
begin
  p2:=p2+1;
  if p2=1 then ShowMessage('Пароль введен не верно, осталось 2 попытки!');
  if p2=2 then ShowMessage('Пароль введен не верно, осталось 1 попытка!');
  if p2=3 then form1.Close;
end;

if (st='Владислав') and (par='vlad') then
begin
  ShowMessage('Зравствуйте, Владислав! Вам доступны открытые данные!');
  RadioButton1.Visible:=true;
  RadioButton2.Visible:=false;
  RadioButton3.Visible:=false;
  RadioButton4.Visible:=false;
end
else
begin
  p3:=p3+1;
  if p3=1 then ShowMessage('Пароль введен не верно, осталось 2 попытки!');
  if p3=2 then ShowMessage('Пароль введен не верно, осталось 1 попытка!');
  if p3=3 then form1.Close;
end;

if (st='Анатолий') and (par='tolik') then
begin
  ShowMessage('Зравствуйте, Анатолий! Вам доступны секретные данные!');
  RadioButton1.Visible:=true;
  RadioButton2.Visible:=true;
  RadioButton3.Visible:=true;
  RadioButton4.Visible:=false;
end
else
begin
  p4:=p4+1;
  if p4=1 then ShowMessage('Пароль введен не верно, осталось 2 попытки!');
  if p4=2 then ShowMessage('Пароль введен не верно, осталось 1 попытка!');
  if p4=3 then form1.Close;
end;
end;