Campos unicos al introducir

[sisne]

Hola ecfisa, gracias por tu ayuda. Olvide mencionar que estoy usando Query o ADOQuery y pues...
Mi codigo es este:

procedure TFmateria.NombreMExit(Sender: TObject);
var nombre: string;
begin
  nombre  :=  Fmateria.NombreM.Text;
  Query1.Close;
  Query1.SQL.Text :=  'Select * From BDmateria where NombreM = '+QuotedStr(nombre);
  Query1.Open;
  if not Query1.IsEmpty then
    begin
      MessageDlg('Nombre materia existente',mtError,[mbOk],0);
      Fmateria.NombreM.SetFocus;
      Abort; // cancelar el ingreso
    end
  else
    //TField(Sender).Value:= Nombre; // Restaurar el valor ingresado
end;

En la ultima parte:

    end
    else
       TField(Sender).Value:= Nombre; // Restaurar el valor ingresado 
  end
end;

Colocas ese codigo, y en mi caso como uso Query y no envia un Tfield como es de los IBQry.
Podrias aclararme por favor? Que tendria que colocar?

El Codigo es perfecto para campos unicos, pero si quisiera que tres campos iguales no se introzcan en una Base de Datos?
Ejemplo:
Juan Perez Flores//valido
Rosa Perez Cruz//Valido
Juan Perez Flores // puede haber el caso de que de pronto este repitiendo los mismos datos con el mismo nombre y apellidos (no valido)
Jose Perez Flores// esto es valido

Gracias!