Form unverschiebbar

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HMENU hSystemMenu;

    // Hole das Handle auf eine Kopie des Systemmenüs
    hSystemMenu = GetSystemMenu(Handle, FALSE);

    // Move und Size-Eintrag aus dem Systemmenü löschen
    DeleteMenu(hSystemMenu, SC_SIZE, MF_BYCOMMAND); 
    DeleteMenu(hSystemMenu, SC_MOVE, MF_BYCOMMAND);
}