Errror al copiar memo.

[tarco35]

Hola, estoy copiando un campo memo de una tabla a otra de la siguiente forma:

Código Delphi [-]
// en su sitio correspondiente estan definidas las variables
  var
  Stream1: TBlobStream;
  Stream2: TStream;

//ya en el codigo de programa

  Stream1 := TBlobStream.Create(FormTraspasoDatos.TablaPacientesOhmedynMEMO1, bmRead);
  try
    ModuloDatos.TablaPacientes.Edit;
    Stream2 := ModuloDatos.TablaPacientes.CreateBlobStream(ModuloDatos.TablaPacientes.FieldByName('MOTIVO'),bmReadW  rite);
    try
      Stream2.CopyFrom(Stream1,Stream1.Size);
      ModuloDatos.TablaPacientes.Post;
      ModuloDatos.TablaPacientes.FlushBuffers;
    finally
      //Stream2.Free;
    end;
  finally
    Stream1.Free;
  end;

está copiado de la ayuda de delphi 6 y al ejecutar la linea Stream2.Free me lanza el error:
EDBEngineError: BLOLB NOT OPENED

Y supongo que necesito liberarlos porque tengo que meterlo en un bucle para copia el contenido del memo de una tabla a otra.
Gracias.