[v1s2222]

Нет, ЕХЕ будет спокойно запускаться, т.к. дописываем текст после программного кода.
Сюда выложить не могу, т.к. исходник больше, чем можно загружать на форум. Я лучше опишу тут как использовать эти функции если кому надо:

Код:

// SAVE to file:
var
 aStream: TMemoryStream;
begin
 aStream := TMemoryStream.Create;
 Memo1.Lines.SaveToStream(aStream);
 if not FileExists('111.exe') then showmessage('error!!!');
 AttachToFile('111.exe', aStream);
 aStream.Free;

Теперь загрузка:

Код:

var 
 aStream: TMemoryStream; 
begin 
 aStream := TMemoryStream.Create;
 if not FileExists('111.exe') then showmessage('error!!!');
 LoadFromFile('111.exe', aStream);
 Memo1.Lines.LoadFromStream(aStream);
 aStream.Free; 

Где "111.ехе" - программа для "опытов".