onClick=Событие происходит всякий раз после выбора строки таблицы и выдает индекс строки в поток

Add(MainForm,4134994,392,112)
{
 WindowsState=2
}
Add(StringTableMT,11011814,238,112)
{
 Width=392
 Height=228
 Align=5
 Font=[MS Sans Serif,10,1,0,1]
 Columns=#1:А|5:Б=150|5:В=150|5:Г=150|1:Д|1:Е|
 Flat=1
 TabGridFrame=0
 TableWBreak=0
 SingleString=0
 Grid=0
 Gradient=0
 HeaderDragDrop=0
 ShadowColor=65535
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 StringsStrLst=#42:Файл 1;Через 2 мин;По требованию;ДА;Нет;Да|
 AutoTblStrLst=0
 Point(Cell)
 Point(PerPage)
 Point(onMouseDown)
 link(onMouseDown,14854611:doTimer,[(278,125)(278,118)])
}
Add(DoData,15837090,336,112)
{
 link(onEventData,4134994:doCaption,[])
 link(Data,11011814:Cell,[(342,100)(303,100)(303,162)(258,162)])
}
Add(Timer,14854611,287,112)
{
 Interval=25
 Enable=1
 AutoStop=1
 link(onTimer,15837090:doData,[])
}

Add(MainForm,2953706,294,210)
{
}
Add(StringTableMT,3470814,182,203)
{
 Left=25
 Top=30
 Width=295
 Columns=#1:1|1:2|1:3|
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 StringsStrLst=#5:а;б;в|5:а;б;в|5:а;б;в|5:а;б;в|
 AutoTblStrLst=0
 Point(onPaint)
 link(onPaint,2953706:doCaption,[])
}

procedure THiAsmClass.TableRePaint;
var i:integer;
    r:TRect;
begin
 TableCtl := PControl(ToIntegerEvent(dParentTable));
 if TableCtl.LVCount = 0 then exit;

 for i:=0 to TableCtl.LVCount do
 begin
   r := TableCtl.LVItemRect(i, lvipBounds);
   PControl(ArrayOfCB.Items[i]).top := r.top;
 end;
end;