[Кодер]

Дано:
компонент ListView на форме
компонент HeaderControl также на форме над ListView в качестве верхних заголовков списка

ListView заполнен данными
ширина колонок в ListView выравнивается по содержимому следующим кодом:

Код:

for i := 0 to lv.Columns.Count - 1 do
        lv.Columns[i].width := ColumnHeaderWidth;

Надо задать ширину столбцов HeaderControl так, чтобы первый заголовок был равен ширине первого столбца ListView, а остальные заголовки равны сумме ширины четырех колонок.