ho fatto in questo modo ma mi va in tilt:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Barra.Position <= 100 then
begin
Barra.Position:= Barra.Position+1;
end else
if Barra.Position >= 100 then
Barra.Position :=1;
Timer1Timer(Self);
end;