Как создать bitmap из пиктогрммы (icon)?

Вопрос:

Как создать bitmap из пиктогрммы (icon)?

Ответ:

Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  TheIcon : TIcon;
  TheBitmap : TBitmap;
begin
    TheIcon := TIcon.Create;
    TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
    TheBitmap := TBitmap.Create;
    TheBitmap.Height := TheIcon.Height;
    TheBitmap.Width := TheIcon.Width;
    TheBitmap.Canvas.Draw(0, 0, TheIcon);
    Form1.Canvas.Draw(10, 10, TheBitmap);
    TheBitmap.Free;
    TheIcon.Free;
  end;