usuwanie niepotrzebnych znaków ze stringu

Mam jakiegoś stringa. W jaki sposób usunąć wszystkie znaki które nie są literą od a-z lub cyfrą od 0-9? Czyli chcę by zostały same litery i cyfry, bez jakiś znaków typu * & # @ ! € $ itp.

  i:=1;
  while i<= Length(string1) do if string1[i] in ['a'..'z','0'..'9'] then Inc(i) else Delete(string1,i,1);

Dzięki bardzo, o to chodziło!