1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  C : AnsiChar;
begin
  AlphaCharSet  := ['A'..'Z', 'a'..'z', ' ', '-', '.', ','];
  for C := #128 to #255 do
    {ask windows what other characters are considered alphas}
    if IsCharAlpha(C) then
      AlphaCharSet := AlphaCharSet + [C];
end;