Access XP, ADO, tstringlist und tmemofield problem

[Blizzard]

hallo leute,
ich bin grade dabei eine anwendung zu proggen mit der ich aus einer access db lese und darin schreibe das klappt soweit auch ganz gut. jetzt versuche ich gerade den inhalt einer tstringlist in ein memo feld zu schreiben. er scheint auch alle zu machen soll heißen er bringt keine fehlermeldung allerdings ist das memo feld danach leider leer.
Hir mal mein bisheriger Code:

Code:

var
   cast:tmemofield;
   bs:tadoblobstream;
   castlist:tstringlist;
begin
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('select * from ['+used_table+'-details] where [sub-id]='+id.text);

         cast:=tmemofield.Create(ADOQuery1);
         cast.FieldName:='cast';
         cast.Name:=ADOQuery1.Name+cast.FieldName;
         cast.Index:=0;
         cast.DataSet:=ADOQuery1;

         ADOQuery1.fielddefs.Update;
         ADOQuery1.open;

         castlist:=tstringlist.create;
         castlist.add('test');

        adoquery1.edit;
        bs:=TADOBlobStream.Create(cast,bmWrite);
        try
          castlist.SaveToStream(bs);
        finally
          adoquery1.Post;
          castlist.Free;
        end;

        ADOQuery1.Close;
        cast.Free;
end;

Hoffe mir kann jemand sagen was ich falsch mache oder mir einen tipp geben wie ich es anders/besser machen kann damit es klappt.
MfG
Blizzard