[lmikle]

Варипнт 1. Берем что-нить тира DevExpress cxGrid, просто делаем выборку и получаем 2х уровневую иерархию средствами грида.
Вариант 2. Пихаем все в TreeView. Тут чуть сложнее. Опять же 2 варианта.
2.1. Грузим все сразу и честно распихиваем по дереву.

Код:

function TForm1.GetNode(ACaption : String) : TTreeNode;
var
  I : Integer;
begin
  Result := Nil;
  For I := 0 To TreeView1.Items.Count-1 Do
    If TreeView1.Items[i].Text = ACaption Then
      Begin
        Result := TreeView1.Items[i];
        Break;
      End;
  If Result = Nil Then
    Result := TreeView1.Items.AddChild(Nil,ACaption);
end;
...
While Not Query1.EOF Do
  Begin
    TreeView1.Items.AddChild(GetNode(Query1.FieldByName('Podezd').AsString),Query1.FieldByName(FIO').AsString);
    Query1.Next;
  End;

2.2. Загрузка по требованию (lazy load). Сначала получаем список подъездов:

Код:

select distinct podezd from test

По этой выборке создаем корневые узлы и в каждом из них создаем служебный подузел. Потом в OnExpand загружаем нужную выборку, получая ключ из текущего узла.

Код:

select * from test where podezd = :p