encontrar datos en la tabla

[[white_zombie]]

Hola, mira este codigo, los valores nuevos los meto a traves de dos edit. Primero busco si las entradas ya existen, si es asi muestro un mensaje y si no inserto los nuevos valores.

Código Delphi [-]
if not ClientDataSet1.Locate('nombre',frame41.Edit1.Text,[loCaseInsensitive]) and not ClientDataSet1.Locate('ip',frame41.Edit2.Text,[loCaseInsensitive]) then    // comprueba que no se repiten entradas y las salva
  begin
    ClientDataSet1.Insert;
    ClientDataSet1.FieldByName('nombre').AsString:= frame41.Edit1.Text;
    ClientDataSet1.FieldByName('ip').AsString:= frame41.Edit2.Text;
    ClientDataSet1.ApplyUpdates(0);
    ClientDataSet1.Active:=false;
    ClientDataSet1.Active:=true;

  end

else
  begin
    if ClientDataSet1.Locate('nombre',frame41.Edit1.Text,[loCaseInsensitive]) then    //mensaje advirtiendo que una entrada se repite
      begin
        showmessage('El nombre ya existe en la base de datos');
      end;;
    if ClientDataSet1.Locate('ip',frame41.Edit2.Text,[loCaseInsensitive]) then
      begin
        showmessage('La ip ya existe en la base de datos');
      end;
  end;