[maxzama]

Gracias, Ya lo e podido hacer.

Código final:

Código Delphi [-]
begin
                                    M:=0;
                                    Dmodulo.REPORTE_COBRADO1.Active:=false;
                                    Dmodulo.REPORTE_COBRADO1.Active:=true;
                                    Dmodulo.ASISTENCIA_COBRAR.First;
                                    while not Dmodulo.ASISTENCIA_COBRAR.Eof do
                                    begin
                                        Dmodulo.REPORTE_COBRADO1.First;
                                        while not Dmodulo.REPORTE_COBRADO1.Eof do
                                        begin
                                            if DMODULO.ASISTENCIA_COBRAR.FieldByName('cedula').AsString = DMODULO.REPORTE_COBRADO1.FieldByName('CEDULA').AsString  then
                                             begin
                                                 Monto2:=DMODULO.REPORTE_COBRADO1.FieldByName('Monto').AsString;
                                                 Monto:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Monto').AsString;
                                                 J:=StrToint(monto2);
                                                 K:=StrToInt(monto);
                                                 L:= J + K ;
                                                 Monto:= FloatToStr(L);
                                                 monto:= Copy('00000000000', 1, 11 - Length(monto)) + monto;
                                               Memo1.Lines.Add(Monto);
                                              end;
                                              Dmodulo.REPORTE_COBRADO1.Next;
                                        end;
                                        Dmodulo.ASISTENCIA_COBRAR.Next;

                                    end;


end;

MySql Delphi:

Código Delphi [-]
select    R.cedula,

            sum (R.monto)  as monto

            from R,A

            Where    R.Cedula = A.Cedula and

                        R.Monto = A.Monto

            Group by   R.Cedula,
                           R.Monto