Aufruf von Verschlüsselungsverfahren

[Avax2k]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var ini : TIniFile; 
begin 
ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+ 'key.ini'); 
if Edit1.Text = Edit2.Text then 
begin 
Encode(Edit2.Text, 'abcdefgh12345678');
ini.WriteString('Text', 'Key', Edit2.Text); 
ShellExecute(Application.Handle, 'open', 'winver.exe',nil,nil,SW_SHOW); 
Form1.Close; 
end 
else 
Label1.Caption := 'klappt nicht'; 
ini.free;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
var ini : TIniFile; 
P: String; 
begin 
Edit2.Text := ''; 
Label1.Caption := ''; 
Label2.Caption := ''; 
ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'key.ini'); 
P := Ini.ReadString('Text', 'Key', Edit2.Text); 
Decode(P, 'abcdefgh12345678');
if Edit1.Text = P then 
begin 
ShellExecute(Application.Handle, 'open', 'winver.exe',nil,nil,SW_SHOW); 
Application.Terminate(); 
end; 
end;

mit diesem Implementierung kommt zwar kein Fehler mehr und das programm wird komiliert, jedoch wird Edit2.text am Anfang gar nicht verschlüsselt sondern einfach so wie es ist in die ini gespeichert.
Genau so funktioniert Decode nicht.

die Bezeichnung für beide ist:

Delphi-Quellcode:

function Encode(const Value, Password:String):String;
function Decode(const Value, Password:String):String;

wie muss ich den befehl jetzt eingeben, damit er doch noch verschlüsselt ?