[[egostar]]

Intenta esto:

Código Delphi [-]
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;

Saludos