Unter Verwendung der Units System.ConvUtils und System.StdConvs kann man da recht einfach was zaubern:
Das ist dann leider unter Berücksichtigung der Umwandlung nutzlos:
Delphi-Quellcode:
var
A: TKiloGramm;
B: TGramm;
begin
A := 50;
B := A; // compiliert ohne irgendwelche Konvertierungen, dun dun dunnn :(