How to convert an ICO to a BMP

If you have an icon file (ICO) and want to convert it to a bitmap image, use the following code:

Procedure IcoToBmp;
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;