Aus einem Set den ersten Eintrag extrahieren

[fred.reichbier]

Hallo Leute!
Ich arbeite gerade mit Sets (set of ...).
Und da wollte ich fragen, ob
jemand weiß, wie ich den z.B. 1. Eintrag
aus dem Set kriegen kann.
(also, ich meine so ein set:

Delphi-Quellcode:

type
TCD = (t,c,d);
TSetCD = set of TCD;

)

Delphi-Quellcode:

var p: TCD; x: TSetCD;
x := [t,c];
p := x[0];

funktioniert nicht.
Hat jemand ne Idee?
Schon mal Danke,
fred.