procedure TForm1.Button1Click(Sender: TObject); var TheIcon: TIcon; TheBitmap: TBitmap; begin TheIcon := TIcon.Create; TheIcon.LoadFromFile('C:Program FilesBorlandIcoCur32EARTH.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;