[size=-2]------ Добавлено в 10:48
Galkov,
я по другому решил этот вопрос, но с датой
........
procedure _work_doSetDate(var _Data:TData; Index:word);
........
procedure THIDatePicker._work_doSetDate;
begin
DatePicker.DateTime:= Str2DateTimeShort(ToString(_Data));
end;