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

如果这样还不行，就再加上下面的：

procedure TForm1.FormResize(Sender: TObject);
begin
Form1.Left:=0;
Form1.Top:=0;
Form1.Width:=Screen.Width;
Form1.Height:=Screen.Height;
end;

谢谢 嘿嘿