1:
2:

Image1.Picture.LoadFromFile( 'test.jpg' );
ImageList1.Add( Image1.Picture.Bitmap , Nil );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  img:TJPEGImage;
  bmp:TBitmap;
begin
  if od.Execute then
    begin
    img:=TJPEGImage.Create;
    bmp:=TBitmap.Create;
    try
     img.LoadFromFile(od.Filename );
    bmp.Width := ImageList1.Width;
    bmp.height := ImageList1.height;
    bmp.Canvas.StretchDraw(Rect(0,0,bmp.Width,bmp.Height),img);
    ImageList1.Add( bmp , Nil );
    finally
    img.Free;
    bmp.Free;
    end;
    end;
    Action1.ImageIndex := ImageList1.Count - 1;
end;					

1:
2:

Rect := Item.DisplayRect( drIcon );
Sender.Canvas.StretchDraw( Rect, Image1.Picture.Graphic );