Transformer une icone en BMP

procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Bitmap:TBitmap;

begin
Icono:=TIcon.create;
Bitmap:=TBitmap.create;
Icono.LoadFromFile('c:kkChip.ico');
Bitmap.Height := Icono.Height;
Bitmap.Width := Icono.Width;
Bitmap.Canvas.Draw(0, 0, Icono);
Bitmap.SaveToFile('c:kkChip.bmp');
Icono.Free;
Bitmap.Free;
end;