if not DS_S_R.FieldByName('F_EXE').IsNull then 
        begin
          MyStream := TStream.Create;
          TBlobField(DS_S_R.FieldByName('F_EXE')).SaveToStream(MyStream);
          TBlobField(Query.FieldByName('F_EXE')).LoadFromStream(MyStream);
          MyStream.Free;
        end;