把C++译成DELPHI(100分)

请问C++中
typedef union{
#ifdef macintosh
char USB;
integer IEEE1394;
#else
long STI;
int WIA;
#endif
integer rsrvd;
} cdPortDescripUnion;
如何译成delphi

Type
cdPortDescripUnion = Record
{$ifdef macintosh}
USB: Char;
IEEE1394: integer;
{$else
}
STI: Longint;
WIA: integer;
{$endif}
rsrvd: integer;
end;