[ecfisa]

Hola Lepuke.

Código Delphi [-]
...
var
  test: TFileStream;
  str: string;
begin
  test:= TFileStream.Create( ExtractFilePath( Application.ExeName ) + 'programa.exe', fmOpenWrite );
  try
    test.Position := test.Size;
    str := '{test}' + Edit1.Text + '{test}';
    test.Write(str, 1024);
  finally
    test.Free;
  end;
end;

Saludos