[Unsolveable] Evaluate Time or DateTime to a FieldRef (3.60)

Hi all,

I'm using fieldrefs to fill a record.
To source value is 'text' so i need to use an evaluate function to convert the string to a Time variable.
Since there is no evaluate function for fieldRef's i used a function i found somewhere here on this forum. It works for all data type except for Time or DateTime variables. It crashes, or wrong values are entered into the fields.

This is a piece of code i use:

  'TIME':
    IF EVALUATE(DummyTime,FromText) THEN BEGIN
      MESSAGE('%1: %2', ToFieldRef.CAPTION, DummyTime);
      ToFieldRef.VALUE := DummyTime;        
      EXIT(TRUE); 
    END; 
  'DATETIME': 
    IF EVALUATE(DummyDateTime,FromText) THEN BEGIN 
      MESSAGE('%1: %2', ToFieldRef.CAPTION, FromText);
      ToFieldRef.VALUE := DummyDateTime;
      EXIT(TRUE); 
    END; 

The MessageBoxes displays a correct date and time.

Could this have anything to do with the fact that RecordRef uses variant datatypes, and there is no Variant type for Time?

But more important: Does anybody know a solution??