Opdater Edit x-antal gange

Jeg har flg. kode som skal skifte værdien ud i en edit med et tilfældigt tal et vis antal gange, når man trykker på "Drej" knappen.

procedure TForm1.DrejButtonClick(Sender: TObject);
var
  Valg,i: Integer;
  BeloebTekst: string;
begin
  for i := 1 to 7 do
  begin
  KonsonantButton.Enabled := True;
  VokalButton.Enabled := True;

  Valg := Random(12);

  case Valg of
    0: begin
      BeloebTekst := 'Fallit';
      Gevinst := 0;
      GevinstEdit.Text := '0';
      KonsonantButton.Enabled := False;
      VokalButton.Enabled := False;
      end;
    1..10: begin
      Beloeb := Valg * 200;
      BeloebTekst := IntToStr (Beloeb);
      end;
    11: begin
      BeloebTekst := 'Tabt tur';
      KonsonantButton.Enabled := False;
      VokalButton.Enabled := False;
      end;
  end;
  BeloebEdit.Text := BeloebTekst;
  Sleep(300);
  end;
end;

Når programmet køres, tager det godt nok de der 2 sekunder (ca) at gennemløbe løkken.
Knapperne Konsonant og VokalButton bliver og en/disabled i takt med at det tilfældige tal er 0 eller 11, men det eneste der ikke sker er at tallet i BeloebEdit ikke skifter for hver omgang.
Hvorfor det?
Når løkken er kørt færdig står det endelige tal der godt nok, men det er jo meningen at man skal kunne se processen.

Det er en opgave fra bogen "Programkonstruktion med Delphi", så hvis du selv har den kan du jo se opg. 5.8.