#pas
procedure _var_TextWidth(var _Data:TData; Index:word);