Someone

function removeSpecialChars(str: string): string;
var i: integer;
begin
  result:='';
  for i:=0 to length(str)-1 do begin
    if(ORD(str[i]) >= ORD('A')) AND (ORD(str[i]) <= ORD('Z')) then begin
      result:=result + str[i];
    end;
  end;
end;