[lmikle]

Не занимайся ерундой, тащи из шела:

Код:

procedure TMailMessageForm.FormCreate(Sender: TObject);
var
  SHFI: TSHFileInfo;
begin
  ilSysIcons.Handle := SHGetFileInfo(PChar(''), 0, SHFI , SizeOf(SHFI),
                       SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX);
end;

function TMailMessageForm.GetSystemImageIndex(AFileName : String) : Integer;
var
  SHFI : TSHFileInfo;
begin
  Result := -1;
  Try
    SHGetFileInfo(PChar(AFileName),FILE_ATTRIBUTE_NORMAL,SHFI, sizeof(SHFI),
                  SHGFI_SYSICONINDEX Or SHGFI_USEFILEATTRIBUTES Or SHGFI_SMALLICON );
    Result := SHFI.iIcon;
  Except
  End;
end;