Подсказки к columnheaders, item или subitems элемента ListView

[honio]

Здравствуйте, Товарищи Форумчане, нужна Ваша помощь (или подсказка, как лучше подобраться к вопросу).

Пишу "красивый" вывод (разбора ошибок, допущенных в БД) в ListView, возникла необходимость написать подсказки к каждой заполненной ячейке subitem, а также к заголовкам column. В сети нашел нашел вот такой пример обработки события OnMouseMove, но, как его применить, разобраться не смог (с элементом ListView сталкиваюсь впервые и на каждом шагу спотыкаюсь).

PHP код:

uses CommCtrl {...}

procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
var
  pt: TPoint;
  li: TListItem;
  lvHitInfo : TLVHitTestInfo;
  hint : string;
begin
try
  pt := ListView1.ScreenToClient(Mouse.CursorPos);
  li := ListView1.GetItemAt(pt.X,pt.y);

  if li <> nil then
    begin {1}
       FillChar(lvHitInfo,SizeOf(lvHitInfo),0);
       lvHitInfo.pt := pt;
          if -1<>ListView1.Perform(LVM_SUBITEMHITTEST,0,LParam(@lvHitInfo)) then
           begin  {2}
            hint := Format('Name: %s,%s : %s',[ListView1.Items[lvHitInfo.iItem].Caption,
            ListView1.Columns[lvHitInfo.iSubItem].Caption,
            ListView1.Items[lvHitInfo.iItem].SubItems[-1 + lvHitInfo.iSubItem]]) ;

              if hint<>Memo1.Lines[0] then
                begin     {3}
                   Memo1.Lines.Insert(0, hint) ;

                   ListView1.Hint := hint;
                   Application.ActivateHint(Mouse.CursorPos) ;
                end;      {3}
           end {2}
          else begin end;


    end; {1}

finally
end;

end; 


Задача поставлена так: при наведении курсора мышки на columnheaders, item или subitems и задержке над элементом свыше 5-ти секунд должна появиться подсказка на 10 секунд для конкретно этого элемента. При смене элемента и выполнении условия должна отобразиться новая подсказка.

Сам пытался переделать в нечто вот такое, но потерпел неудачу (без учета времени, отображение для конкретного item):

PHP код:


procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
pt : TPoint;
li : TListItem;
lvHitInfo : TLVHitTestInfo;
hint,s : string;
begin
   pt := ListView1.ScreenToClient(Mouse.CursorPos);
   li := ListView1.GetItemAt(pt.X, pt.Y);
   s := li; Memo1.Lines.Add(li);

   if li = nil then
    begin
      FillChar(lvHitInfo, SizeOf(lvHitInfo),0);
      lvHitInfo.pt := pt;

        if -1<>ListView1.Perform(LVM_SUBITEMHITTEST,0,LPARAM(@lvHitInfo)) then
          begin
              if lvHitInfo.iItem = 2 then
              hint := Format('%s',[ListView1.Items[lvHitInfo.iItem].SubItems[-1+lvHitInfo.iSubItem]])
              else hint := EmptyStr;
                  if hint <> EmptyStr then
                    begin
                       ListView1.Hint := hint;
                       Application.ActivateHint(Mouse.CursorPos);
                       ListView1.ShowHint := True;
                    end
                  else ListView1.ShowHint := False;

          end;

    end;
end; 


Каким образом это возможно реализовать/ исправить? Или хотя бы разобраться, потому что, честное слово, запутался напрочь..

------
Также возник вопрос по количеству Column в ListView: описал 5 колонок в ListView (от 0 до 4), при компиляции возникает пустая 6 колонка без заголовка (нигде лишних субайтемов нет, колонка не описана). Каким образом можно её убрать?
------
Буду очень благодарен за любую помощь.