UNION in C++ -> Delphi?

[guinnes]

Das 2. End ist zuviel ( Case in Records benötigen kein End )

Delphi-Quellcode:

  VSS_OBJECT_SNAPSHOT = Integer;
  VSS_PROVIDER_PROP   = Pointer;
  VSS_OBJECT_UNION = packed record
    case Integer of
      3 : (Snap : VSS_OBJECT_SNAPSHOT);    //VSS_OBJECT_SNAPSHOT
      4 : (Prov : VSS_PROVIDER_PROP);      //VSS_OBJECT_PROVIDER
    end;