Zeichen-Menge dynamisch erweitern

[Bummi]

Delphi-Quellcode:

var
 s:Set of Char;

procedure TForm6.Button1Click(Sender: TObject);
begin
  if 'ö' in s then Showmessage('Hallo');
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
     s := ['a'..'z'];
     Include(s,'ö');
end;