1.新建:application工程文件,然后保存在桌面ceshi文件夹内
2.在ceshi文件夹内新建记事本,并写入:      1hao icon "xin.ico",重名命为:ceshi.rc
3.delphi中按:ctrl+alt+F11  打开project manager 右键点击projcet1.exe,选择add...     在这里加上ceshi.rc
        说明:你可以打开:project->view source查看,已经加上了:{$R 'ceshi.res' 'ceshi.rc'}
4.在工程文件上加上三个button按钮,代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
Icon.Handle:=loadicon(hinstance,'1hao');//截入你的xin.ico
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Icon.Handle:=loadicon(hinstance,'mainico');//mainico换成nil也可,这是系统默认图标
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Application.Icon:=nil;//不使用图标(会显示 Windows 系统的默认图标)
end;



HInstance 当前程序实例的句柄, 调用资源文件一定要用到它;
ico1 是资源文件的标识符;
LoadIcon 是个 API 函数, 专门用于调用资源中的 ico 文件, 它返回的是指定 ico 文件的句柄.