[vtdeleon]

Saludos

Es extraño este código :

Código Delphi [-]
    cRut:=Md.tbCompra.FieldByName('Rut').AsString;
    cTipDoc:=Md.tbCompra.FieldByName('TipDoc').AsString;
    nDoc:=Md.tbCompra.FieldByName('NumDoc').AsInteger;
    Md.tbCompra.IndexName:='CompCom';
    If MD.tbCompra.FindKey([cRut,cTipDoc,nDoc])=True THEN
      ShowMessage('El registro ya existe');

Estás mandado a buscar DATOS qeu están en la misma tabla, y es claro que te diga que existan.

Me parece que falta otra tabla!