[Lotles]

Здравствуйте !!!
Подскажите как сделать, чтобы цикл, при определенном условии, начинался сначала ?

Код:

var
  Form1: TForm1;
  chislo,i,j:integer;
  rez:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
chislo:=StrToInt(Edit1.Text);
rez:='';
for i:=1 to 99999 do
begin
if chislo mod  i=0 then
begin
rez:=rez+IntToStr(i)+'*';
chislo:=chislo div i;
//Надо сделать чтобы i:=0
end;//для if
end;//для цикла
ShowMessage(rez);
end;

end.