1:

ResourceStream:= TResourceStream.Create (hinstance, 'NAME', RT_RCDATA);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  // Diese laufende Exe umbenennen
  RenameFile(ParamStr(0), ChangeFileExt(ParamStr(0), '.exe.bak'));
  // Und an die ursprüngliche Position kopieren
  CopyFile(PChar(ChangeFileExt(ParamStr(0), '.exe.bak')), PChar(ParamStr(0)), True);
  // Datei mit Originalnamen öffnen
  FileContents := TFileStream.Create(ParamStr(0), fmOpenReadWrite);
  // Jetzt dann verändern...
  ...

  FileContents.Free;
  // Geschriebene Exe ausführen und dafür sorgen, dass die umbenannte Exe
  // von ihr gelöscht wird.
  ShellExecute(Handle, 'open', PChar(ParamStr(0)), '/delbak',
    PChar(ExtractFileDir(ParamStr(0))), SW_SHOWNORMAL);
  // Programm schließen, sonst geht ja kein Löschen
  Close;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm136.FormCreate(Sender: TObject);
begin
  {$B-} // vollständige boolsche Auswertung aus
  if (ParamCount > 0) and (ParamStr(1) = '/delbak') then
    while FileExists(ChangeFileExt(ParamStr(0), '.exe.bak')) do
    begin
      DeleteFile(ChangeFileExt(ParamStr(0), '.exe.bak'));
      Sleep(1);
    end;
end;