Как вызвать Shutdown Windows dialog?

Code:

uses ComObj;

{....}

procedure TForm1.Button1Click(Sender: TObject);

var

shell: Variant;

begin

shell := CreateOleObject('Shell.Application');

shell.ShutdownWindows;

end;

Code:

uses ComObj;

{....}

procedure TForm1.Button1Click(Sender: TObject);

var

shell: Variant;

begin

shell := CreateOleObject('Shell.Application');

shell.ShutdownWindows;

end;