try
while Not Relacion.eof do
begin
DetDocumento.Insert;
DetDocumentoNUMLIQUIDA.Value := RelacionNUMLIQUIDA.Value;
DetDocumentoTOTLIQUIDA.Value := RelacionTOTLIQUIDA.Value;
DetDocumentoPAGODIV.Value := RelacionPAGODIV.Value;
DetDocumentoPAGOBOL.Value := RelacionPAGOBOL.Value;
Relacion.Next;
end;
finally
DetDocumento.Post;
end;