function THIStringTable._OnCompareLVItems;
var S1,S2:string; //r:real;
begin
  S1 := Sender.LVItems[ Idx1, ColClick ];
  S2 := Sender.LVItems[ Idx2, ColClick ];
  Result := AnsiCompareStrNoCase( S1, S2 );
  {r := str2double(S1)-str2double(S2);
  Result := ord(r>0)-ord(r<0);}   
end;

procedure THIStringTable._work_doSort;
begin
  ColClick := ToInteger(_Data);
  Control.LVSort;
end;