ganz einfache Verschlüsselung von einem Memo Text

[Penelopee]

Hier ist nochmal mein Quelltext:

Delphi-Quellcode:

var
  Form1: TForm1;
  Text:string;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Text:='Wer diesen Text verschlüsseln kann ist gut';
Memo1.Lines.Text:=Text;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

Ich möchte jetzt diesen Text ganz einfach verschlüsseln.Brauche ich dafür eine Funktion oder geht das auch ohne??