type
    Date = record
    Year: Integer;
    Month: Byte;
    Day: Byte;
  end; 
var
  BirthDay: Date;  
begin
  BirthDay.Year := 2008;
  BirthDay.Month := 8;
  BirthDay.Day := 8;
end;
｛var
    Date = record
    Year: Integer;
    Month: Byte;
    Day: Byte;
    BirthDay: Date;  
begin
  BirthDay.Year := 2008;
  BirthDay.Month := 8;
  BirthDay.Day := 8;
end;｝






 
var
  pChr:set of Char;
begin
  pChr:=['a','b','j'];
if 'j' in pChr then
ShowMessage('ok');
end;