Integer aus String mit anderen Zeichen herraussuchen

[Nikolas]

Geh doch den String durch und schmeiss alles ausser den Zahlen raus.

Delphi-Quellcode:

k: char;
str: string;
begin
str:='666';
k:= str[1];
if (k in ['0'..'9']) then showmessage('drin');