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