1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

...
const setDigits : set of char = ['0'..'9'];
        setChars  : set of char = ['a'..'z','A'..'Z'];
...
implementation

{$R *.dfm}

function OnlyChars(const s: string; const setOnlyChars : TSetOfChars = []) : string;
var i, nLength : integer;
begin
  Result  := '';
  nLength := Length(s);
  if (setChars = []) or (nLength = 0)
     then begin
            Result := s;
            Exit;
          end
     else for i:=1 to nLength do if (s[i] in setOnlyChars) then Result := Result + s[i];
end;