TStringList in AnsiString ablegen

Hi, ich muß noch mal stören.
diesesmal genau anderstrum, ich habe eine StringList und will diese Codieren lassen. Den Script zum codieren habe ich schon gefunden, aber der Verschlüsselt irgendwie nur AnsiStrings und dasshalb würde ich gern wissen, wie man eine StringList ohne Memo oder RichEdit Umwege in einen AnsiString speichern kann.
mfG

AndreasW

TStringList* Liste=new TStringList;
List->Add("Dieses kann man auch in der HIlfe oder Suchfunktion nachlesen");
List->Add("auch die FAQ hilft da meist weiter.");
String EinString=Liste->Text;

ShowMessage(EinString);