//SavetoFile bmp文件转换成 ico procedure TForm1.Button1Click(Sender: TObject);begin with Image1.Picture do begin SavetoFile('C:\frombmp.ico'); end;end;