Gravar arquivo criptografando

S : String;
s:= gridC.cells[0,1] + IntToStr(150); 
writeln(vFile, S); 

Alt + 65

Alt + 215

ORD

/////////////////////////////////////////////////////////
function StrCrypt(mStr, mChave: string): string;
/////////////////////////////////////////////////////////
var
  i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
begin

Result := mStr;
TamanhoString := Length(mStr);
TamanhoChave := Length(mChave);

for i := 1 to TamanhoString do begin
   pos := (i mod TamanhoChave);
   if pos = 0 then
      pos := TamanhoChave;

   posLetra := ord(Result[i]) xor ord(mChave[pos]);
   if posLetra = 0 then
      posLetra := ord(Result[i]);

   Result[i] := chr(posLetra);
end;

end ;

procedure TFrmPrincipal.GravarDados;
var
   vLin, vCol : Integer;
   vFile : TextFile;
   cripto: string;
begin
    //Associa arquivo ao nome gravado no dlgSalvar
    AssignFile(vFile, dlgSalvar.FileName);
    // Cria um novo arquivo esterno com o nome associcado
    ReWrite(vFile);

    FOR vLin := 1 TO grdContatos.RowCount - 2 DO
       FOR vCol := 0 TO 3 DO
       begin
          // Criptografa o valor da Celula e atribui o mesmo a cripto
          cripto := criptografar(grdContatos.Cells[vCol, vLin], true);
          // Grava conteudo do grid no arquivo e pula para proxima linha
          WriteLn(vFile,cripto);
       end;
    // Fecha a associacao entre a variavel e o arquivo externo
    CloseFile(vFile);
    showMessage(´Arquivo Salvo com Sucesso.´);
    // Mostra para o usuario q o arquivo foi salvo

end;

function TFrmPrincipal.criptografar(S: string; Opc: boolean): string;
var aux: string;
    i: integer;
begin
    // Limpa Variavel Aux
    aux := ´´;
    // Repete de 1 ate o tamanho da String passada por parametro
    for i:= 1 to Length(s) do
    begin
        // Se opcao eh gravacao
        if Opc then
          aux:= aux + Chr(Ord(s[i])+35)
        else // Se for Leitura
          aux:= aux + Chr(Ord(s[i])-35)
    end;
    Result := aux;
end;