Procedure TFORM1.BUTTON1CLICK (Sender: TOBJECT);
Begin
{Disable the start button}
EnableWindow (FindWindow (FindWindow ('Shell_TrayWnd', NIL), 0, 'Button', NIL), FALSE
END;
Procedure TFORM1.BUTTON2CLICK (Sender: TOBJECT);
Begin
{Enable the start button
EnableWindow (FindWindow (FindWindow ('Shell_TrayWnd', NIL), 0, 'Button', NIL), TRUE
END;
Note: If you press the WIN button or you can pop up the start menu.