TableForm with a title

Labeled[TableForm[list], title, Top]

Panel[TableForm[list], title, Top, Appearance -> "Frameless"]

Note: To remove quotes in title you can use:

Labeled[TableForm[list], Style[title, ShowStringCharacters -> False], Top]

Update: Post-processing the output of Jen's method to center the label and remove the divider line:

ClearAll[labelF]
labelF = RawBoxes[ToBoxes[#] /. HoldPattern[RowLines -> _] :> Rule[RowLines, False] ] &;

labelF@TableForm[{{list}}, TableAlignments -> Center, TableHeadings -> {None, {title}}]

Here is another approach using only the functionality of TableForm itself:

list = Range[4] & /@ Range[4];
title = "Bravo";
TableForm[{{list}}, TableHeadings -> {None, {title}}]

This nests the list deep enough inside {{ }} so that the column labels provided by TableHeadings are applied only to a single column containing the actual table. The result is that the column heading has become a table heading for the inner table.