我这有一个ico转化为bmp 文件格式的代码，希望能对你有用：
procedure Tform1.drawimage;
var
t: Ticon;
re : trect;
begin
image5.canvas.brush.style := bsSolid;
image5.canvas.fillrect(image5.canvas.cliprect);
edit3.text := opendialog1.filename;
t := ticon.create;
t.loadfromfile(edit3.text);
image5.width := t.width;
Image5.height := t.height;
Image5.canvas.draw(0,0,t);
然后再对image5.picture.savetofile()即可。
至于*.jpg 格式则可以用一个bitmap类型的变量来显示并操纵一个jpeg图像，就可以用
assign 把图像复制到一个Tbitmap的实例中，再保存。你可以试试。
