ecco la mia procedura:

codice:
procedure TForm1.TimeTimer(Sender: TObject);
var pos,i:integer;
    prop:TProgressBar;
    nome:string;
begin
  pos:=0;
  if sender.ClassName='TProgressBar' then
    begin
      prop:=sender as TProgressBar;
      if prop.position<rel then
        prop.position:=prop.position+rel;
    end;
end;
ma il riempimento è "istantaneo" l'interval è a 100000!!!

grazie.