nach res update kein icon merh?

[Premutos]

hallo wenn ich mit folg. code ein res update durchführe verschwindet das exe icon!?
woran liegt das?

Delphi-Quellcode:

procedure TForm1.suiButton2Click(Sender: TObject);
var
  I:Integer;
  H, Size, FH, BR:DWORD;
  Local:String;
  Buf:Pointer;
  aRes : TResourceStream;
begin

if not (files.items.Count=0) then
 if sd.Execute then begin
  try
 aRes:=TResourceStream.Create(hInstance,'MAIN','STUB');
   aRes.SaveToFile(sd.filename+'.exe');
     ares.Free;

  Local:= ExtractFilePath(ParamStr(0));
    H:= BeginUpdateResource(PChar(sd.filename+'.exe'), True);

    FH:= CreateFile(PChar('c:\test.exe'), GENERIC_READ, FILE_SHARE_READ,            nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    Size:= GetFileSize(FH, nil);
    GetMem(Buf, Size);
    ReadFile(FH, Buf^, Size, BR, nil);
    CloseHandle(FH);
    UpdateResource(H, RT_RCDATA, PChar(UpperCase(ExtractFileName(readini('xxx',files.items[i].caption)))), MAKEWord(LANG_NEUTRAL, SUBLANG_NEUTRAL), Buf, Size);
    FreeMem(Buf);


  EndUpdateResource(H, False);
  

 except
 application.messagebox( 'Datei konnte nicht erstellt werden!','Fehler',16) 
 end;

end;

end;

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]