DBMemo Text vorm speichern verschlüsseln

[Alterauge]

Hallo,

möchte gerne den DBMemo Text (Inhalt) vorm speichern verschlüsseln!

Delphi-Quellcode:

procedure TForm1.Timer7Timer(Sender: TObject);
var
i : integer;
s : string;
begin
  if filelistbox1.Count > 0 then
  fileListbox1.ItemIndex:=0;
 if filelistbox1.ItemIndex= 0 then
 begin
DBMemo1.Lines.LoadFromFile(filelistbox1.FileName);
MyTable1.FieldByName('Status').Text:='Eingang';
MyTable1.FieldByName('Meldung').AsString := DBMemo1.Text;
DBMemo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss__',now)+('MySQL')+ '.asc');
MyTable1.Post;
MyTable1.Refresh;
MyTable1.Insert;
DBMemo1.Clear;
i := 0;
while i < fileListBox1.Items.count do begin
deletefile (filelistbox1.FileName);
 inc ( i );
FileListBox1.Update;
MyConnection1.Connected:=false;
MyTable1.Active:=false;
  end;
 end;
end;

Zurzeit wird der TEXT unverschlüsselt gespeichert!
Wie könnte ich es umsetzen!
Kann ein einfacher Schlüssel sein, der auch nicht so sicher ist!
Möchte nur das der Text halt verschlüsselt ist.

Wenn ich die Daten mit einem DBGrid lese,
müssen diese natürlich wieder entschlüsselt werden.
Hier brauche ich auch eine Idee!

Danke