[ecfisa]

Empezado por feliz-58

Donde voy a Poner el Codigo base?

Hola.

Si usas un TDataModule, sería un buen lugar para ubicarlo:

Código Delphi [-]
...
implementation

uses Windows, Forms;

procedure TtuDataModule.DeleteTable(const TableName: string);
const
   MSG = '¡Atención! se borrará la tabla %s ¿ Continua ?';
begin
  iif MessageBox(Screen.ActiveForm.Handle, PChar(Format(MSG,[TableName])), '',
                 MB_ICONWARNING+MB_YESNO) = IDYES then
    with ADOQuery1 do
    begin
      Close;
      SQL.Text := 'DROP TABLE ' + TableName;
      ExecSQL;
    end;
end;

Llamada desde un form:

Código Delphi [-]
...
implementation

uses uDataModule; // tuDataModule

procedure TForm1.btnBorraClick(Sender: TObject);
begin
  if ComboBox1.ItemIndex > -1 then
    tuDataModule.DeleteTable(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

Saludos.