Wie wärs mit eine Variable, die du im OnTimer auf % 10 prüfst - dann wird dein eigentliches OnTimer nur alle 10 Intervalle aufgerufen, du kannst aber bei jedem den Fortschrittsbalken aktualisieren ?
Delphi-Quellcode:
var i: Integer;
procedure TForm1.Ontimer(Sender: TObject);
begin
if i mod 10 = 0 then
begin
// was machen
end;
ProgressBar1.StepIt;
ProgressBar1.Update;
end;