como esconder e mostrar o botao iniciar do windows ( delphi )

procedure EscondeIniciar(Visible:Boolean); 
Var taskbarhandle, 
buttonhandle : HWND; 
begin 
taskbarhandle := FindWindow('Shell_TrayWnd', nil); 
buttonhandle := GetWindow(taskbarhandle, GW_CHILD); 
If Visible=True Then Begin 
ShowWindow(buttonhandle, SW_RESTORE); {mostra o botão} 
End Else Begin 
ShowWindow(buttonhandle, SW_HIDE); {esconde o botão} 
End; 
end;