while Not Relacion.eof do
Begin
DetDocumento.Insert;
DetDocumentoNUMLIQUIDA.Value:=RelacionNUMLIQUIDA.Value;
DetDocumentoTOTLIQUIDA.Value:=RelacionTOTLIQUIDA.Value;
DetDocumentoPAGODIV.Value:=RelacionPAGODIV.Value;
DetDocumentoPAGOBOL.Value:=RelacionPAGOBOL.Value;
DetDocumento.Post;
Relacion.Next;
Application.ProcessMessages;
End;