Cambiar icono de un exe desde delphi

[cheche]

Hola... a todos...

Mi problema es que quiero cambiar el icono de una aplicacion escrita en delphi y busque, y busque y econtre el siguiente codigo. pero en realidad no me ha funcionado (algo esoty haciendo mal) , puedo cambiar otros recursos pero el icono de una aplicacion no.. les agradecerias sus ideas

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject); 
var Ico: TIcon; 
    Stream : TMemoryStream; 
    hInst: THandle; 
    ptr : Pointer; 
begin 
  Ico:=TIcon.Create; 
  Ico.LoadFromFile('c:\icon.ico'); 

  Stream := TMemoryStream.Create; 
  Ico.SaveToStream(Stream); 
  Ico.Free; 
  getmem (ptr, Stream.size + 1); 
  try 
    Stream.Seek(soFromBeginning, 0); 
    Stream.read(ptr^, Stream.size); 
    hInst:=BeginUpdateResource(Pchar('C:\MeineExe.exe'), False); 
    if hInst > 0 then 
    begin 
      UpdateResource(hInst, RT_GROUP_ICON, 'MAINICON', 1031, ptr, Stream.size); 
      EndUpdateResource(hInst, False); 
      end; 
  finally 
    freemem (ptr, Stream.size + 1); 
    stream.Free; 
  end; 

end;

Camibiar icono de un exe desde delphi
Camibiar icono de un ejecutable desde delphi
remplazar icono de un exe desde delphi