Brincando com a trackbar e a progressbar no delphi7

1º) Vamos adicionar ( 1 trackbar " está localizada na aba Win32" )  
     Vamos adicionar ( 1 progressbar " está localizada na aba Win32" )
     Vamos adicionar ( 1 XPManifest " está localizado na aba Win32" )
     Vamos adicionar ( 1 Skin " está localizada na aba VCLSkin" )

OBS: Se você não tem o VCLSkin você pode desenvolver essa aplicação normalmente, o porem é que a sua aplicação não ficará com uma interface diferente... Mais adiante você entenderá o que estou tentando dizer.

2º) Organize assim, ou da maneira que preferir...

3º) Selecione a trackbar e vá no ( Object Inspector > Max) Selecione (Max) de 10 mude para 1000.
4º) Vamos programar...

Dê um duplo clique na trackbar irá abrir o ambiente de programação do delphi. Entre o Begin e o End coloque o que está de vermelho...

---

 procedure TForm1.TrackBar1Change(Sender: TObject);
begin

progressbar1.Min:= 0;

progressbar1.Max:= trackbar1.Max;

progressbar1.Position:= trackbar1.Position;

end;

end.

---

Feito isso, a sua brincadeira já está pronta. Mais agora vamos mudar sua interface.
selecione o VCLSkin vá no ( Object Inspector > Active ) o Active está em false, mude para true.
depois... Ainda no Object Inspector vá em Skin Store e Selecione o skin desejado... Só isso.
Olha como o meu projeto ficou...

Esse skin ai do projeto é o iTunes... Fora que o meu componente skin é um DEMO kKk...

Valeu...