Die Ausgangsfrage lässt sich allerdings beantworten:
Delphi-Quellcode:
type
myTyp = Single;
var
ti1, ti2: ^TTypeInfo;
begin
ti1 := TypeInfo(myTyp);
ti2 := typeInfo(Single);
if ti1.Name <> ti2.Name then
writeLn('verschieden');
Sorry, mit
myTyp = type Single;
klappt das nicht.