Encrypt et descrypt de cette Fuction

Salut
voila ma Function de Encrypt :
function stringEncrypt(const S: String; Key: Word): String; 
  var 
    I: Integer; 
    dummyKey: Byte;
  const
    C1 = 55555; C2 = 22222; 
begin 
  result := '';
  for I := 1 to Length(S) do
    begin 
      dummyKey :=Ord(S[I]) xor (Key shr 8)
      Result := result + IntToHex(dummyKey,2); 
      Key := (dummyKey + Key) * C1 + C2; 
   end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    Edit2.Text:=stringEncrypt(Edit1.text, 1258); // ok
    Edit3.Text:= // ici je voudrais prendre le text original de Edit1
end;

merci
--------------
Value:= StrToInt('$'+<hexString>);

il est en Edit1.text , wow trés facile

Matrix

je sais , mais je voudrais etuliser la Function de prendre autre foi le Text originale

merci

reponse pour Delphiturbo
je pense que la fonction de rendre le text original
et la meme


oAs