Function IsTable(DatabaseName, TableName: String): Boolean;
Var
  Query: TQuery;
Begin
  Result := False;
  Query := TQuery.Create(nil);
  Try
    Try
      Query.DatabaseName := DatabaseName;
      Query.Sql.Clear;
      Query.Sql.Add('Select *');
      Query.Sql.Add('From');
      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;
      Query.Active := True;
      Result := True;
    Except
    End;
  Finally
    Query.Free;
  End;
End;