[NumLock]

пример работы со множеством:

Код:

var
  s: set of AnsiChar;
  c: AnsiChar;
  i: Integer;
begin
  s:=['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'];
  for i:=0 to $ff do
  begin
    c:=AnsiChar(i);
    if CharInSet(c, s) then Memo1.Lines.Add(string(c));
  end;
end;

пляски с Ansi это из-за юникодной версии Delphi 2010