var I, Shirina: Integer; begin Shirina := 0; for I := 0 to ListView1.Columns.Count - 1 do Shirina := Shirina + ListView1.Columns[I].Width; ShowMessage(IntToStr(Shirina)); end;