[cotseec]

что-то вроде

Код:

var
   tmp,
   i:integer;
...
   HeaderControl1.Sections[0].Width:=lv.Columns[0].width;
   tmp:=0;
   for i:=1 to 4 do
       tmp:=tmp+lv.Columns[i].width;
   for i:=1 to HeaderControl1.Section.Count-1 do
      HeaderControl1.Sections[i].Width:=tmp;

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