[[Nbull]]

Hola a los dos, os cuento he probado vuestro codigo y no me funciona, me produce una excepción en las dll del Ado o algo asi. Mi pregunta es:

Tengo un Dbgrid en el que se visualiza mi tabla agenda y un botón Borrar que lo que quiero que haga es borrar el registro que este seleccionado, estoy gastando AdoQuery y la verdad que si puedo hacerlo con el mejor por que no me apetece cambiarme otra vez a los query normales por que hay cosas que solo me van con los Ado.Podeis ayudarme el código que tengo ahora mismo para el Boton es esl siguiente:

Código Delphi [-]
procedure TForm1.BorrarClick(Sender: TObject);
var
button : integer;
begin
button := application.messagebox ('¿Realmente desea borrar la empresa?', 
'¿Seguro?', MB_yesno + mb_iconwarning); // Mostramos un mensaje de advertencia
if button = IDYes then begin // Si ha pulsado si...
Query2.Insert;
Query2.ClearFields;
Query2.SQL.Text:='DELETE * FROM agenda WHERE Nombre='+ quotedStr(DbNombre2.Field.Text);
Query2.ExecSQL; // Borramos el registro activo.
end else // sino, no hacemos nada.
end;

Y me sale esta excepción:

'Access violation at address 1F453E6E in module Msado15.dll'

Supongo que sera porque el código que me habeis dicho es para querys normales y yo uso los Adoquerys, la verdad es que no tengo ni pajolera idea de por que me sale esto.

Ante todo daros las gracias por vuestro tiempo.

Un Saludo.