FoxPro/Visual FoxPro - Eliminar Registros!!!

BUENOS DIAS AMIGOS, MI PROBLEMA ES EL SIGUIENTE:

TENGO DOS TABLAS CONTRATOS Y ABONOS DONDE GUARDO EN LA PRIMERA TABLA EL CONTRATO DE COMPRA QUE HACE UN APERSONA DE UN DETERMINADO ARTICULO Y EN LA SEGUNDA TABLA TENGO LOS ABONOS QUE VA REALIZANDO ESA PERSONA PARA CUBRIR EL COSTO TOTAL DEL ARTICULO COMPRADO.

EN AMBAS TABLAS TENGO DOS CAMPOS EL NUMERO DE CONTRATO(NNUMCONT) Y EL NUMERO DE ABONO(NNABO) ENTONCES, PR EJEMPLO YO TENGO LO SIGUIENTE EN LA TABLA DE ABONOS:
(EN ESTE CASO SOLO UTILIZO LA TABLA DE ABONOS, PORQUE EN ELLA TENGO LOS DOS CAMPOS QUE ME SIRVEN)

TABLA ABONOS
NNUMCONT NNABO
1 1
1 2
1 3
2 1
2 2
2 3

COMO PUEDEN VER TENGO DOS CONTRATOS CADA UNO CON TRES ABONOS REALIZADOS, LO QUE QUIERO HACER ES ELIMINAR, POR EJEMPLO, EL ABONO 3 DEL CONTRATO 2, ES DECIR, ELIMINAR LA ULTIMA LINEA NNUMCONT: 2 NNABO: 3, COMO LE HAGO???, GRACIAS DE ANTEMANO POR SU AYUDA.

DELETE FOR NNUMCONT = 2 ADN NNABO = 3

GRACIAS AMIGO PLINIO, PERO A VER TE PUEDO EXPLICAR MEJOR MI DUDA VA:

YO TENGO CMO TE DIJE DOS TABLAS, PERO SOLO UTILIZO LA DE ABONOS EN ESTE CASO, PORQUE EN ELLA TENGO LOS DOS CAMPOS: NUMERO DE CONTRATO(NNUMCONT) Y NUMERO DE ABONOS(NNABO) AMBOS SON INDICES, ENTONCES EN MI TABLA TENGO N CONTRATOS CADA UNO CON SUS RESPECTIVOS ABONOS, LO QUE QUIERO HACER ES ELIMINAR UN ABONO DE UN CONTRATO EN ESPECIFICO, POR EJEMPLO, ELIINAR EL ABONO 3 DEL CONTRATO 1, PERO SIN BORRAR EL ABONO 3 DEL CONTRATO 2.

MIRA, YO TENGO EN MI FORMULARIO UN BOTON QUE SE LLAMA "ELIMINAR", EN EL CLIC DE DICHO BOTON TENGO EL SIGUIENTE CODIGO:

Select abonos
If SEEK(thisform.pageframe1.page2.TxtNNUMCONT.Value,'abonos',1) .and. SEEK(thisform.pageframe1.page2.TxtNNABO.Value,'abonos',2) AND thisform.pageframe1.page2.TxtNNUMCONT.Value = abonos.NNUMCONT AND thisform.pageframe1.page2.TxtNNABO.Value = abonos.NNABO AND !Deleted()
Borra = MessageBox('Confirmar Eliminacion',1+32+256,'DISTRIBUIDORA MARIA ISABEL')
If Borra = 1
If !Lock()
Do MsgRLock With Alias()
ELSE
browse
DELETE
browse
thisform.pageframe1.page2.TxtNSDO.Value = thisform.pageframe1.page2.TxtNSDO.Value + thisform.pageframe1.page2.TxtNCANABO.Value
replace abonos.nsdo WITH thisform.pageframe1.page2.TxtNSDO.Value
UnLock In abonos
EndIf
EndIf
Else
=MessageBox('Entrada de datos invalida',16,'DISTRIBUIDORA MARIA ISABEL')
ENDIF

OJALA Y PUEDAS DECIRME QUE ESTA MAL O SI ESTA BIEN. GRACIAS
ThisForm.command1.SetFocus
DO borrado