[[gluglu]]

Ya lo conseguí ...

Me faltaba crear el TIcon.

Código Delphi [-]
var
  Aux_Icon : TIcon;
...
 
Aux_Icon := TIcon.Create;
MainForm.ImageList1.GetIcon(0,Aux_Icon);
MainForm.Icon := Aux_Icon;
...
Aux_Icon.Free;