Lautstärke von PC ändern ?

[Delphiturbo]

Es ist schon ok
wen ich das Programm starte, dann ist der Regler immer auf 0 !

ich habe versucht in Form.Oncreate :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Min := MinVolume;
  TrackBar1.Max := MaxVolume;
  TrackBar1.Position:=5; // kommt trotzdem in der Position 0 ! min:0 und max:10
  TrackBar1.TickStyle:=tsAuto; // passiert nichts!

funktioniert aber nicht. der Regler beim Starten immer in der Position 0,
obwohl ich den Tackbar1 über seine Eigenschaften in Inspektor auf 5 gesetzt habe!

Ideal wäre es, wenn ich die aktuelle Lautstärke ermitteln kann