Jak wyświetlić ikonę skojarzoną z danym rozszerzeniem

uses ShellAPi;


var
  Ico : PShFileInfo;

begin
  GetMem( Ico, sizeof(TShFileInfo) );
  try
   shGetFileInfo( PChar('sciezka_i_nazwa_pliku'), 0, Icoi^, sizeof(TShFileInfo), shgfi_sysiconindex or shgfi_icon or shgfi_smallicon);

  Image1.Picture.Icon.Handle:=Ico.hIcon;

  finally
   FreeMem(sfi);
  end;
end;