Delphi 7, прога зависает

Delphi 7, прога зависает
В кратце о проге: типа "игра", генерируется рандомное число, его нужно угадать, на одной кнопке рандомизация, на другой проверка (в едит вводят число, в лейбл показывается состояние - угадал, число меньше, число больше) , ну что еще сказать, цикл с постусловием и в нем проверка введеного из едита числа с тем которое сгенерировалось случайно ( до тех пор, пока число не будет угадано) , для случайного числа объявлена глобальная переменная, прога зависает когда число верно угадываешь. Почему? как сделать, чтоб нормально работала?
Заранее спасибо!

var b:integer;

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin

a:=strtoint(edit1.text);
repeat begin
edit2.text:=inttostr(b);

if a=b then label1.Caption:='ïðàâèëüíî, ÷óâàê!'
else if a>b then label1.Caption:='÷èñëî ñëèøêîì áîëüøîå'
else label1.caption:='÷èñëî ñëèøêîì ìàëåíüêîå';

end;
until a<>b;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
b:=random(101);

end;

  • поменяй прогу, значит прога неправильно написана