زر × في الفورم

procedure TFMain.FormCreate(Sender: TObject);

Var

hMenuHandle:Integer;

begin

hMenuHandle := GetSystemMenu(Handle, FALSE);

if (hMenuHandle <> 0) then

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;