конвертация из hicon в ticon

[D_E_N]

Привет всем. нашел в инете код который функции в качестве параметра передаётся имя файла и в случае удачного выполнения
она возвращает handle'р иконки (HICON). а мне хотелось бы как нить перегнать его в ticon подскажите как сделать. заранее спасибо.

function GetRegistryIconHandle(FileName: string): HICON;   
var  
  R: TRegistry;   
  Alias, //псевдвним для расширения в реестре   
  IconPath: string; //путь для файла с иконкой   
  IconNum, //номер иконки в файле   
  QPos: Integer; //позиция запятой в записи реестра   
begin  
  IconNum := 0;   
    
  R := TRegistry.Create;   
    
  try  
    R.RootKey := HKEY_CLASSES_ROOT;   
    
    //чтение псевданима   
    if R.OpenKey('\' + ExtractFileExt(FileName), True) then  
      Alias := R.ReadString('');   
    R.CloseKey;   
    
    //чтение записи об иконке   
    if R.OpenKey('\' + Alias + '\DefaultIcon', True) then  
      IconPath := R.ReadString('');   
    R.CloseKey;   
    
    //поиск запятой   
    QPos := Pos(',', IconPath);   
    
    //чтение номера иконки в файле если она имеется   
    if QPos <> 0 then  
    begin  
      IconNum := StrToInt(Copy(IconPath, QPos + 1, 4));   
      IconPath := Copy(IconPath, 1, QPos - 1)   
    end;   
    
  finally  
    R.Free;   
  end;   
    
  //передача хендлера иконки как рещультат выполнения   
  Result := ExtractIcon(hInstance, PChar(IconPath), IconNum);   
end;

[D_E_N]

спасибо. разобрался.
var
icon:ticon;
begin
con:=ticon.Create;

icon.Handle:=GetRegistryIconHandle( 'win.ini');
Form2.Icon:=icon;