è ok
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;