Dilma (18:00:12 6/01/2007)
procedure TForm1.UpdateIcon;
var
  st:PStream;
  Size:integer;
  k:string;
  lpResLock: pointer;
  hUpdateRes:THandle;
begin
  if Icon.Empty then exit;
  Icon.SaveToFile('~temp.ttt');
  st := NewReadFileStream('~temp.ttt');
  st.Position := 22;
  Size := st.Size - st.Position;
  SetLength(k,Size);
  st.Read(k[1],Size);
  lpResLock := @k[1];

  hUpdateRes := BeginUpdateResource(PChar(FileName), false);
  UpdateResource(hUpdateRes,RT_ICON,PChar(2),LANG_NEUTRAL, lpResLock,Size);
  EndUpdateResource(hUpdateRes, FALSE);

  st.Free;

  DeleteFile('~temp.ttt');
end;

Dilma (18:00:20 6/01/2007)
procedure UpdateIcon(Icon:TIcon; const FileName:string);

Yuriy (18:00:52 6/01/2007)
А можешь портировать под IC?

Dilma (18:02:58 6/01/2007)
меняешь TIcon на PIсon а поток на PStream