عوض کردن آیکون EXE در Delphi XE3

[The.Ghost]

با سلام
می خواهم آیکون یک EXE را عوض کنم ولی هر کاری که می کنم بازم درست نمیشه لطفا راهنمایی کنید.
EXE مورد نظر با دلفی Delphi XE3 ایجاد شده است و یک EXE معمولی می باشد که داخلش هیچ کدی نوشته نشده است.
من این کد زیر پیدا کردم البته یکمی هم تغییرش دادم. هر کاری که می کنم توی دلفی Delphi XE3 نمیشه که باهش آیکون یک EXE دیگر را تغییر داد؟؟؟؟

کد:

procedure TForm1.Button2Click(Sender: TObject);
var
  FileHandle: THandle;
  MyIcon : TIcon;
begin
MyIcon := TIcon.Create;
MyIcon.LoadFromFile('D:\Icon2.ico');

FileHandle := BeginUpdateReSource(PChar('D:\Ali.exe'), False);
UpdateReSource(FileHandle, RT_GROUP_ICON, 'MAINICON', 1033, @MyIcon, SizeOf(MyIcon));

EndUpdateReSource(FileHandle, False);

MyIcon.Free;
end;

ویندوز کامپیوتر هم سون 64 بیتی می باشد.
لطفا راهنمایی کنید با تشکر فراوان.