1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Procedure LowerVol(Percent: Integer);
Var
    i: Integer;
Begin
    If (Percent <= 100) And (Percent >= 1) Then
        For i := 1 To (Percent Div 2) + 1 Do
            SendMessage(WinAmpHandle, WM_Command, 40059, 0);
End;

Procedure RaiseVol(Percent: Integer);
Var
    i: Integer;
Begin
    If (Percent <= 100) And (Percent >= 1) Then
        For i := 1 To (Percent Div 2) + 1 Do
            SendMessage(WinAmpHandle, WM_Command, 40058, 0);
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

const  
  WINAMP_VOLUMEUP  : integer = 40058; // volume up
  WINAMP_VOLUMEDOWN: integer = 40059; // volume down

procedure WinampVolumeUp;
var hwndWinamp: THandle;
begin
  hwndWinamp:= FindWindow('Winamp v1.x',nil);
  if hwndWinamp<>0 then SendMessage(hwndWinamp,WM_COMMAND, WINAMP_VOLUMEUP, 0);
end;

procedure WinampVolumeDown;
var hwndWinamp: THandle;
begin
  hwndWinamp:= FindWindow('Winamp v1.x',nil);
  if hwndWinamp<>0 then SendMessage(hwndWinamp,WM_COMMAND, WINAMP_VOLUMEDOWN, 0);
end;