Script Membuat Enkripsi Password

berikut contoh scriptnya :
 procedure TForm4.SpeedButton1Click(Sender: TObject);
 var text1 : string;
 pos : integer;
 begin text1:= Edit2.Text;
 for pos := 1 to length(text1) do text1[pos] := chr(((ord(text1[pos])* 2)div 1)+ 2); 

Terus ditambahkan sesuai perintah simpan.