[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.HTLEFT, 0);
    SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, Windows.HTTOP, 0);
    end;
end;

Когда кликаешь левой кнопкой мыши на панели и не отпуская ее водишь крысой по экрану - меняется ширина формы, когда отпускаешь пр. кнопку и водишь крысой - меняется высота формы, пока ты снова не нажмешь кн. мыши.