hIcon := ExtractIcon(0, ExpandConstant('{sys}\shell32.dll'), ИндексИконки);
with TBitmapImage.Create(ТвояФорма) do begin
Parent:= ТвояФорма;
...
Bitmap.Width:= Ширина;
Bitmap.Height:= Высота;
DrawIconEx(Bitmap.Canvas.Handle, 0, 0, hIcon, Ширина, Высота, 0, 0, 3);
...
end