procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  NewHeight :=  GetSystemMetrics(SM_CYCAPTION) +
                GetSystemMetrics(SM_CYFULLSCREEN);
end;

OnCanResize 에서 위에 이벤트를 넣어 주면 됩니다..
근데 정확하게 맞는건지 모르겠다..

그럼 이만..