Textfile verschlüsseln

[Kompon Ente]

Das hab ich auch gar nicht gesagt.

Ich möchte meinen Textfile mit dieser Variante

Delphi-Quellcode:

function TForm1.verschluesseln(einWort: String): String;
var
   unvW: String;
   vW: String;
   B: String;
   i: Integer;

begin
  unvW := einWort;
  vW := '';

  for i := 1 to length(einWort) do
  begin
    B := copy(einWort,i,1);
    // B verschlüsseln
    vW := vW + B;
  end;

  Result := vW;

end;

verschlüsseln.

Wie muss ich das da machen? Das ist mein Problem!