Цыкл

[Михаил Юрьевич]

Как в цыкле перебирать

 Form1.Label1.Caption:=IntToStr(RandomRange(1,20));
//ЗДЕСЬ ДОЛЖЕН БЫТЬ ЦЫКЛ В КОТОРОМ ПРОВЕРЯТЬ
Form1.Label1.Caption не должно быть меньше Form1.Label2.Caption

Написал так че то не работает

 While Form1.Label1.Caption <= Form1.Label2.Caption do
  begin
Form1.Label1.Caption:=IntToStr(RandomRange(1,20));
  end;

[BDA]

k := StrToInt(Form1.Label2.Caption);
repeat
  p := RandomRange(1, 20);
until p >= k;
Form1.Label1.Caption := IntToStr(p);

Или, может быть, так?

Form1.Label1.Caption := IntToStr(RandomRange(StrToInt(Form1.Label2.Caption), 20));

[Михаил Юрьевич]

Спасибо помогло

[Михаил Юрьевич]

[QUOTE=BDA;1447061]

k := StrToInt(Form1.Label2.Caption);
repeat
  p := RandomRange(1, 20);
until p >= k;
Form1.Label1.Caption := IntToStr(p);

Если в сравнении убрать равно, то начинает виснуть.
Как исправить?

[Михаил Юрьевич]

Все, спасибо! Все исправил