Copiar información de un campo memo de una tabla a otro campo memo de otra tabla

Aquí hay un ejemplo de uso de un TBlobStream:

procedure TForm1.Button1Click(Sender: TObject);

 var
   BS1, BS2: TBlobStream;
 begin
   BS1 := TBlobStream.Create(Table1Notes,bmRead);
   try
     Table2.Edit;
     BS2 := TBlobStream.Create(Table2MyBlob,bmReadWrite);
     try
       BS2.CopyFrom(BS1,BS1.Size);
     finally
       BS2.Free;
     end;
   finally
     BS1.Free;
   end;
   Table2.Post;
 end;