[Elite237]

Fijate que le introduci este codigo, sí me ejecuta la aplicación, pero no me hace lo que yo pido, de hecho me dice que esa clave no existe, pero realmente si esta esa clave..

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
if not Dep.Locate('clave',edit1.Text,[]) then
  begin
    Edit1.Clear;
    mensaje:=Application.MessageBox('La clave no existe','Error de entrada')
  end
    else
   begin
  Dep.Delete;
       mensaje:=Application.MessageBox('Los datos se eliminaron con éxito!','Mensaje de Confirmación');
    end;
end;