Problemas en busqueda

[destrukthor]

Hola nuevamente a todos y gracias por sus ayudas de ante mano.
Mi problema es el siguiente:
Estoy usando FindKey para realizar una busqueda y q me diga si existe ya un registro para no repetirlo, pero como utilizo los TDBEdit para mostrar he ingresar los datos me dice que siempre existen y esto es cuando hago el Insert correspondiente.

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');

Estoy usando bases Paradox 7

Y si uso este codigo me arroja un error de violacion.

Código Delphi [-]
    cRut:=DBedit4.Text;
    cTipDoc:=DBComboBox1.Text;
    nDoc:=StrToInt(DBEdit3.Text);
    Md.tbCompra.IndexName:='CompCom';
    If MD.tbCompra.FindKey([cRut,cTipDoc,nDoc])=True THEN
      ShowMessage('El registro ya existe');

Gracias de ante mano.