Пароль на прогрумму

[waka2ebawer]

var
f1,lock:string;
begin
f1:='lock.pwd';
  if FileExists(f1) then
  begin
  memo3.Lines.LoadFromFile(f1);
  Edit5.Text:=Encrypt(Memo3.Text,StartKey, MultKey, AddKey);
  lock:=inputbox('Введите пароль','Пароль','');
  Edit6.Text:=lock;
  if Edit5.Text=Edit6.Text then
  begin
  MessageDlg('Доступ разрешен',mtInformation,[mbOk],0);
  end
  else
  begin
  repeat
  MessageDlg('Доступ закрыт',mtInformation,[mbOk],0);
  lock:=inputbox('Введите пароль','Пароль','');
  until edit5.text=edit6.text;
  end;
  end;
end;

если пароль правильный то норм заходит
если нет то все равно заходит хотя в цикле repeat должно запускаться до тех пор пока значения не сравняются
подскажите в чем загвоздка

[Serge_Bliznykov]

вообще-то, должно быть наоборот.
Должен быть бесконечный цикл, т.к. вводите вы пароль в переменную lock
а в цикле проверяете Edit5 и Edit6, которые в цикле не меняются..
поставьте точку останова, посмотрите, чему у Вас равны Edit5.Text и Edit6.Text в цикле repeat... until.