[ozmar_11]

bueno disculpen mi falta de cuadro de código pero es que no veo el icono que le pone el cuadro creo que es el mismo icono de la pagina no? pero aquí esta mi código:

Código Delphi [-]
procedure TForm6.Button1Click(Sender: TObject);
begin
IF APPLICATION.MESSAGEBOX('¿REALMENTE QUIERES BORRARTODOS LOS DATOS DE LA BASE DE DATOS? ESTA ACCION NO SE PODRA REVERTIR','Advertencia del sistema',1)=IDOK THEN
BEGIN
  with ADOQuery1.Create(nil) do
  try
    Connection:= ADOConnection1;
    SQL.Text:= 'DELETE FROM Tabla1';
    ExecSQL;
    Close;
  finally
    Free;
  end;
  SHOWMESSAGE('LA TABLA SE HA ELIMINADO POR COMPLETO');
  END;
end;