Eliminar registros de mi base de datos

[Elite237]

Ya edite mi mensaje, asi era??? Ahora si me puedes ayudar??

[roman]

Donde dice

Código Delphi [-]
if Dep.Locate('clave',edit1.Text,[]) then

yo creo que debería decir:

Código Delphi [-]
if not Dep.Locate('clave',edit1.Text,[]) then

es decir, que está alrevés tu condición. Y para borrar, basta que uses Dep.Delete; las asignaciones que haces después con Dep.FieldValues no vienen al caso.

// Saludos

[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;

[[Caral]]

Hola
Lo que te dijo Roman lo probé en una consulta aparte y me funciono.

Código Delphi [-]
procedure TFArticulos.Button2Click(Sender: TObject);
begin
   if not ADOTable1.Locate('CodProducto',DBEdit1.Text,[]) then
  begin
    DBEdit1.Clear;
    MessageBox(Handle,
             PChar('La Clave no existe'),
             PChar('Clave'),
             MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL);
  end
    else
   begin
  ADOTable1.Delete;
  MessageBox(Handle,
             PChar('Los datos se eliminaron con éxito'),
             PChar('Eliminar'),
             MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL);

    end;
end;

Hace lo que necesitas, si el codigo no existe, lo indica de lo contrario borra el contenido.
Saludos

[Elite237]

Gracias Roman y Caral, ya me hace lo que le indico..Gracias por su tiempo a cada uno y gracias por sus comentarios.Saludos