TTrackBar großschrittig auslesen

[hathor]

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
case TrackBar1.Position of
1:  Winapi.Windows.Beep(1000,50);
5: Winapi.Windows.Beep(1200,50);
10: Winapi.Windows.Beep(1500,50);
end;
end;