WinAmp Gui Control

function this_title :pchar ;
var
    hwndWinamp : THandle;
    p: string;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  GetWindowText(hwndWinamp,this_title,sizeof(this_title));
  p := this_title+strlen(this_title)-8;
  while (p >= this_title) do
end;

// Datei laden
procedure TForm1.Button1Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND , 40029,0);
end;

// vorheriger Track
procedure TForm1.Button2Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND , 40044,0);
end;

// musik abspielen
procedure TForm1.Button3Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND ,40045,0);
end;

// nächster Track
procedure TForm1.Button4Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND , 40048,0);
end;

// pausieren
procedure TForm1.Button5Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND , 40046,0);
end;

// stop
procedure TForm1.Button6Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND ,40047,0);
end;

// Datei Informationen
procedure TForm1.Button7Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND , 40188,0);
end;

// Lade URL 
procedure TForm1.Button8Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage (hwndWinamp , WM_COMMAND , 40155,0);
end;

// Titel (unkompatibel)
procedure TForm1.Button9Click(Sender: TObject);
begin
  showmessage ( this_title) ;
end;

// WinAmp schließen und neu starten
procedure TForm1.Button10Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
  SendMessage(hwndWinamp,WM_USER, 0, 135);
end;

// WinAmp finden
procedure TForm1.Button11Click(Sender: TObject);
var
    hwndWinamp : THandle;
begin
  hwndWinamp := FindWindow('Winamp v1.x', nil);
end;