find a component, (TrackBar+ProgressBar)

[Luckie]

Use just a normal Trackbar:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
 Trackbar1.SelStart := 0;
  for i := 0 to 100 do
  begin
    Trackbar1.Position := i;
    Trackbar1.SelEnd := TrackBar1.Position;
    Trackbar1.Refresh;
    Sleep(100);
  end;
end;