Incluir un fichero en el ejecutable

[acertij022]

Si la idea es incoporar algun archivo en el interior del ejecutable se puede cargar todo en una variable tipo string.

hacer un pequeño programa que habra el archivo tipo char y guardarlo en un txt

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
ff:file of char;
FText:textFile;
char1:char;
str1:string;

begin
assignfile(ff,'a.exe');
Reset(ff);
while not eof do
 begin
 Read(ff,char1);
 str1:=str1+'#'+IntToStr(ord(char1));
 end;
closeFile(ff);

assignfile(FText,'a.exe');
ReWrite(FText);
WriteLn(FText,str1);
CloseFile(Ftext)
end;

El resultado del archivo de texto generado guardarlo en string en nuestra aplicacion y por medio de este codigo lo sacamos

Código Delphi [-]
procedure StrToFile(Texte: String; Fitxer: String);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(Fitxer, fmCreate);
  try
    Stream.WriteBuffer(Pointer(Texte)^, Length(Texte));
  finally
    Stream.Free;
  end;
end;

Creo que este sistema se le dice archivo mochila.
Espero que esto te sirva