[v1s2222]

Немного не понял вопрос. Вам надо записывать что-то в созданный ЕХЕ файл? Если да, то пожалуйста:

Код:

function AttachToFile(const AFileName: String; MemoryStream: TMemoryStream): Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if(not(FileExists(AFileName))) then
    Exit;

  Try
    aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
    MemoryStream.Seek(0, soFromBeginning);
    aStream.Seek(0, soFromEnd);
    aStream.CopyFrom(MemoryStream, 0);
    iSize := MemoryStream.Size + SizeOf(Integer);
    aStream.Write(iSize, SizeOf(iSize));
  Finally
    aStream.Free;
  end;

  Result := True;
end;

function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if(not(FileExists(AFileName))) then
    Exit;

  Try
    aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
    aStream.Seek(-SizeOf(Integer), soFromEnd);
    aStream.Read(iSize, SizeOf(iSize));
    if(iSize > aStream.Size) then begin
      aStream.Free;
      Exit;
    end;

    aStream.Seek(-iSize, soFromEnd);
    MemoryStream.SetSize(iSize - SizeOf(Integer));
    MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
    MemoryStream.Seek(0, soFromBeginning);
  Finally
    aStream.Free;
  end;

  Result := True;
end;

Эти функции читают и записывают в нужный тебе файл (при этом если запись происходила в ЕХЕ файл, то он остается работоспособным).