GuidCase function

function GuidCase(const GUID: TGUID; 
 const List: Array of TGUID = packed record
public
 TGUID.class operator =(const aLeft: TGUID; const aRight: TGUID)
: Boolean;
 TGUID.class operator <>(const aLeft: TGUID; const aRight: TGUID)
: Boolean;
 class function Empty: TGUID; static;
 Create;
 class function FromString(const S: ShortString; out GUID: TGUID)
: Boolean; static;
 function IsEmpty: Boolean;
 function AsString: ShortString;
case Integer of
1: (
 Data1: DWord;
 Data2: Word;
 Data3: Word;
 Data4: Array[0..7] of Byte;
);
2: (
 D1: DWord;
 D2: Word;
 D3: Word;
 D4: Array[0..7] of Byte;
);
3: (
 time_low: DWord;
 time_mid: Word;
 time_hi_and_version: Word;
 clock_seq_hi_and_reserved: Byte;
 clock_seq_low: Byte;
 node: Array[0..5] of Byte;
);
end
)
: Integer