class oparator implicit funktioniert nicht (Bug??)

[stoxx]

Delphi-Quellcode:

type 

TIBZeit = record 
private 
  Value : TDateTime; 
public 
  class operator implicit(Zeit : TDateTime) : TIBZEit; 
  class operator implicit(a : TIBZeit) : TDateTime; 
  class operator implicit(a : TIBZEit) : String; 

end; 

implementation 

{$R *.dfm} 

class operator TIBZeit.implicit(Zeit : TDateTime) : TIBZeit; 
begin 
result.value := Zeit; 
end; 

class operator TIBZeit.implicit(a : TIBZeit) : TDateTime; 
begin 
result := a.Value; 
end; 

class operator TIBZeit.Implicit(a : TIBZeit) : String; 
begin 
  result := DateTimeToStr(a.value); 
end; 

//============================================================================== 

procedure TForm1.Button1Click(Sender: TObject); 
var d : TDateTime; 
    Zeit : TIBZEit; 
    st : String; 
begin 

  Zeit := now; 
  st := Zeit; 
  d := Zeit;  /// geht nicht 

end;

isch habe mir gerade mal die Trial von Delphi 2007 rungergeladen .. und das Beispiel geht jetzt ... coole Sache ....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var d : TDateTime;
    Zeit : TIBZEit;
    st : String;
begin

  Zeit := now;

  d := Zeit;

  showmessage(Zeit);
  Showmessage(DateTimeToStr(d));


end;