Oder einfach so:
Code:
n := StrToInt(Edit1.Text);
counter := 0;
repeat
... Mach was
Inc(counter);
until counter >= n;
Damit hast Du "n" als Eingabegrösse (vorausgesetzt, im Textfeld "Edit1" wurde auch wirklich eine Zahl eingegeben [muss man gegebenenfalls prüfen]), die Du als Grenze für einen internen Schleifenzähler ("counter") benutzt.
Matthias