поиск или создание Button по принципу TrackBar

[beegl]

Добдень! Как создать Button по принципу TrackBar (или где скачать)??

т.е. на клавишу одну жму, поднял курсор выше над той клавишей и тише звучит нота/мелодия .. заметил в ( этой ) программе (и в FL Studio синтезаторы с таким принципом кнопки):



по координатам:

procedure TForm1.Form1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: integer);
var
FCursor: TPoint;
begin
if Button = mbRight then
begin
GetCursorPos(FCursor);
PopupMenu1.Popup(FCursor.X, FCursor.Y);
end;
end;

или так, и задавать события:

procedure CaretPos(H: THandle; var L, C: Word);
begin
L := SendMessage(H, EM_LINEFROMCHAR, -1, 0);
C := LoWord(SendMessage(H, EM_GETSEL, 0, 0)) -
SendMessage(H, EM_LINEINDEX, -1, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
LineNum, ColNum: Word;
begin
CaretPos(Button1.Handle, LineNum, ColNum);
Edit1.Text := IntToStr(LineNum) + ' ' + IntToStr(ColNum);
end;

Предложите лучший вариант.