[angvelem]

Вот вариант

Код:

procedure ResizeWnd(Wnd : HWND; wParam, lParam : Integer);
var
  aRect : TRect;
begin
  GetClientRect(Wnd, aRect);
  SetWindowPos(PlayList, 0, 0, aRect.Bottom - 100, aRect.Right, aRect.Bottom, SWP_NOZORDER);
end;

function WndProc(Wnd : HWND; Msg, wParam, lParam : Integer) : Integer; stdcall;
...
    WM_SIZE :  ResizeWnd(Wnd, wParam, lParam);
...

(aRect.Bottom - 100) здесь Top равен высоте главного окна - 100.