function StreamMemoToTableFldd: string; SrcTbl: TEDBDataset; DestTbl: TEDBTable; OpenExclusive: boolean = False): boolean;
var
ms: TMemoryStream;
begin
try
  DestTbl.Close;
  DestTbl.Exclusive := True;
  ClearTable(DestTbl);
  DestTbl.Close;
  DestTbl.Exclusive := OpenExclusive;
  DestTbl.Open;
  if not SrcTbl.FieldByName(Fld).IsNull then begin
   ms := TMemoryStream.Create;
   TMemoField(SrcTbl.FieldByName(Fld)).SaveToStream(ms);
   try
    if ms.Size > 0 then begin
     DestTbl.LoadFromStream(ms); <<<<<<<<<<<<<<<<<<<<<<<< #1003
     DestTbl.Refresh;
     DestTbl.First;
    end;
   finally
    ms.Free;
   end;
  end;
  Result := True;
except
  Result := False;
end;
end;