Function DBDropTable(const DatabaseName, TableName : string):Boolean;
var Query : TQuery;
begin
  Result := False;
  If Not IsTable(DatabaseName, TableName) Then
  Begin
    Exit;
  End;
  Query := TQuery.Create(nil);
  try
    Query.DatabaseName := DatabaseName;
    Query.SQL.Clear;
    Query.SQL.Add('Drop Table ');
    If (Pos('.DB', UpperCase(TableName)) > 0) Or
       (Pos('.DBF',UpperCase(TableName)) > 0) Then
    Begin
      Query.Sql.Add('"'+TableName+'"');
    End
    Else
    Begin
      Query.Sql.Add(TableName);
    End;
    Result := True;
    Try
      Query.ExecSQL;
    Except
      Result := False;
    End;
  finally
    Query.Free;
  end;
end;