Convert IcoToBmp

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   Icono       : TIcon ;

   Bitmap      : TBitmap ;

Begin

   Icono := TIcon.create ;

   Bitmap := TBitmap.create ;

   Icono.LoadFromFile ( 'YourIco.ico' ) ;

   Bitmap.Height := Icono.Height ;

   Bitmap.Width := Icono.Width ;

   Bitmap.Canvas.Draw ( 0 , 0 , Icono ) ;

   Bitmap.SaveToFile ( 'YourBmp.bmp' ) ;

   Icono.Free ;

   Bitmap.Free ;

End ;