program hello;

uses
    Windows, ComObj, ActiveX;

var
    shell: Variant;
    folder: Variant;

begin
    CoInitialize(0);

    shell := CreateOleObject('Shell.Application');
    folder := shell.BrowseForFolder( 0, 'Hello, COM(Delphi) World!', 0, 36 );

    CoUninitialize();
end.