Err: Too Many open BLOBs

Can somebody please help me!

I call this Proc to write a string to a Memo field, but after about 22
records I get the error "Too many open BLOBs".

A typical call to this procedure would be

  WriteToMemo('This is my comment!', tbl.FieldByName('Memo') as
TMemoField);

procedure WriteToMemo(const buffer : PChar; destFld: TMemoField);
var
  bs    : TBlobStream ;
  tblDest : TTable;
begin
  try
    tblDest := destFld.Dataset as TTable;
    tblDest.Edit;

    bs := TBlobStream.Create( destFld, bmWrite ) ;
    bs.Write(buffer, Length(buffer^)) ;

    tblDest.Post;
  finally
    bs.Free;
  end;
end;                    

Thank you in advance!!

Brahm

=========================
=  Brahm van Niekerk    =
=  Elgin Data Systems   =
=  bra...@iafrica.com     =
=  P.O. Box 140         =
=  Elgin                =
=  7180                 =
=========================