var


  Icon : TIcon;


  Bitmap : TBitmap;


begin


  Icon := TIcon.Create;


  Bitmap := TBitmap.Create;


  Icon.LoadFromFile('c:\picture.ico');


  Bitmap.Width := Icon.Width;


  Bitmap.Height := Icon.Height;


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


  Bitmap.SaveToFile('c:\picture.bmp');


  Icon.Free;


  Bitmap.Free;


end;