function GetIcon(const FileName: string): TIcon;
const
 IconType: TIconType = itLarge;
var
 FileInfo: TShFileInfo;
 ImageList: TImageList;
 IT: DWORD;
begin
 IT := SHGFI_LARGEICON;
 Result := TIcon.Create;
 ImageList := TImageList.Create(nil);
 FillChar(FileInfo, Sizeof(FileInfo), #0);
 ImageList.ShareImages := true;
 ImageList.Handle := SHGetFileInfo(PChar(FileName), IT, FileInfo, sizeof(FileInfo), IT or SHGFI_SYSICONINDEX);
 ImageList.GetIcon(FileInfo.iIcon, Result);
 ImageList.Free;
end;



загружаю иконку из файла.
РЕАЛЬНЫЙ размер иконки 48Х48. А свойства Icon.Width, Icon.Height - всегда 32х32.
как правильно получить размер иконки?

Думаю, она подгоняется под системный размер "большой" иконки.
ИМХО, единственный надёжный способ получить иконку "как есть" - брутальное расковыривание ресурсов файла.

Про ограниченные системные размеры иконки на днях обсуждение было:
http://pda.delphimaster.net/?id=1256444215&n=18