PropertySheetExtension and TImage/Icons

I have figured out how to add this Property Sheet Extension.
But how could I provide the Data into a Icon inside of such
a page. I could use a resource-Editor like workshop. If I
know the Icon-Index I would like to display how should I
set it or could an TImage used for this?

Example:

function PropExtDlgProc(hwndDlg: HWnd; Msg: UINT; wParam: wParam; lParam: LPARAM) : Bool; far; stdcall;
var SHFileInfo : TSHFileInfo;
     fn : String;
begin
  if Msg = WM_INITDIALOG then begin
    with TStringList.Create do
      try
        SetText(PChar(PPropSheetPage(lParam)^.lParam));
        fn := Strings[0];
      finally
        Free;
      end;
{ don't work:
    SHGetFileInfo(PChar(fn), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_ICON);
    Image1.Picture.Icon.Handle := SHFileInfo.hIcon;

    PPropSheetPage(lParam)^.lParam := 0;
    SetWindowLong (hwndDlg, DWL_MSGRESULT, 0);
    Result := TRUE;
  end
  else Result := FALSE;
end;

Any ideas?

Volker