Как в SHBrowseForFolder диалог вставить TCheckBox?

Как в SHBrowseForFolder диалог вставить TCheckBox?

Диалог вызываю функцией

function BrowseForFolder(var FolderName string) Boolean;
var BrowseInfo TBrowseInfo;
ItemIDList PItemIDList;
DisplayName array [0..MAX_PATH] of char;
begin
Result = False;
FillChar(BrowseInfo, SizeOf(BrowseInfo), #0);
with BrowseInfo do
begin
hwndOwner = Application.Handle;
pszDisplayName = @DisplayName[0];
lpszTitle = 'Select directory';
ulFlags = BIF_RETURNONLYFSDIRS;
end;
ItemIDList = SHBrowseForFolder(BrowseInfo);
if Assigned(ItemIDList) then
if SHGetPathFromIDList(ItemIDList, DisplayName) then
begin
FolderName = DisplayName;
Result = True;
end;
end;