구조체라...ㅡㅡ;

record 를 써보셈...

레코드 선언 해서 쓰면 됩니다....레코드로 검색 해보세요
맨 위에것은 집합입니다. 여러개의 원소를 가질수 있고, 교집합/차집합 등의 연산을

할 수 있죠... 원소를 표현할때는 '[' ']'기호를 이용합니다.

type
   TMYEdges = set of ( deLeft, deTop, deRight, deBottom);
var
   Edges: TMyEdges;
begin
   Edges := [deLeft, deTop];
   Edgeg := [deLeft, deTop] - [deLeft, deRight]; // = [deLeft]
end;

다음 나오는 것들은 열거형으로 이들중에서 단 하나의 값만 가질 수 있죠...

type
   TMyEdgeStyle = ( desNone, desFlat, desRaised, desRaisedHeavy, desSunken,
                    desSunkenHeavy, desBump, desEtched );
var
   MyEdgeStyle: TMyEdgeStyle;
begin
   MyEdgeStyle := desNone;
   MyEdgeStyle := desEtched;
end;

맨 밑에것은 객체형이네요... 이건 쓰기전에 생성해야하고 쓴뒤에 소멸시켜야 합니다..

type
   TMyLabel = class(TCustomLabel)
var
   MyLabel: TMyLabel;
begin
   MyLabel := TMyLabel.Create(Self);
   MyLabel.Caption := '라벨';
   ......
   MyLabel.Free;
end;
이건 누군가가 올려 놓은 것입니다 누군지는 잘모르겠네요...