не успеваю подготовится к сессии помогите сделать побыстрей

[Olesya2406]

Составить программу, которая запрашивает пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введен.

[SERG1980]

procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
 repeat
  s:=InputBox('Ввод пароля','Введите пароль','');
 until s='1234';
end;