Schleifen probleme

[DeddyH]

Delphi-Quellcode:

procedure TfrmMain.Machwas;
var V1, Multiplikator: integer;
begin
  V1 := 1;
  Multiplikator := 1;
  repeat
    //multiplizieren und einen hochzählen
    V1 := V1 * Multiplikator + 1;
    //zur Kontrolle in einer Listbox ausgeben
    ListBox1.Items.Add(InttoStr(V1));
    //Multiplikator um eins erhöhen
    inc(Multiplikator);
  until Multiplikator > 5;
end;