[Elite237]

Que codigo debo utilizar para eliminar un registro de mi base de datos.
La base de datos que utilizo en SQL Server 2000, estoy utilizando los componentes de ADOConnection y ADOTable, y quiero que me valide, en caso de que busque una clave que no exista y me mande un mensaje de que la clave no existe y en caso de que no si exista, que me borre mi registro.Este es el codigo que introduci: SI PUEDO EJECUTAR MI APLICACION, SOLO QUE NO HACE LO QUE LE PIDO.

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