Delphi - Progress Bar Ciclo

Ho realizzato questa progress bar che va avanti con il tempo impostato in TTime ma quando arriva a 100 vorrei che ricominciasse da capo ho inserito alla fine la riga Timer1Timer(Self); ma rimane fermo senza ricominciare da zero come posso modificare questo codice per avere un effetto ciclo?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if  Barra.Position    <= 100  then
begin
    Barra.Position:= Barra.Position+1;
end else
if  Barra.Position >= 100 then
    Timer1Timer(Self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Barra.Position <= 100 then
begin
Barra.Position:= Barra.Position+1;
end else
begin
barra.position:=0;
end;
end;
adesso va