Jak dokleić string do programu exe i go potem odczytać

Procedurki made by piechnat ;-)

procedure SaveToExe(FName, Str: string);
var
  F : File of Byte;
  i : Integer;
begin
  AssignFile(F, FName);
  Reset(F);
  try
    Seek(F, FileSize(F) - SizeOf(i));
    BlockRead(F, i, SizeOf(i));
    if (i < SizeOf(i)) or (i > FileSize(f)) then i := 0;
    Seek(F, FileSize(F) - i);
    Truncate(F);
    BlockWrite(F, Str[1], Length(Str));
    i := Length(Str) + SizeOf(i);
    BlockWrite(F, i, SizeOf(i));
  finally
    CloseFile(F);
  end;
end;

function LoadFromExe(FName: String): String;
var
  F : File of Byte;
  i : Integer;
begin
  Result := '';
  AssignFile(F, FName);
  FileMode := fmOpenRead;
  Reset(F);
  try
    Seek(F, FileSize(F) - SizeOf(i));
    BlockRead(F, i, SizeOf(i));
    if (i < SizeOf(i)) or (i > FileSize(f)) then Exit;
    Seek(F, FileSize(F) - i);
    SetLength(Result, i - SizeOf(i));
    BlockRead(F, Result[1], Length(Result));
  finally
    CloseFile(F);
  end;
end;