[Karsh]

Можно сделать еще красивие:

Код:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, Windows.HTBOTTOMRIGHT, 0);
    //или:
    //SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, Windows.HTTOPLEFT, 0);
    end;
end;

При таком раскладе меняется и ширина и высота одновременно.