separar números de letras numa string

...
var i:integer;
texto,varletras,varnumeros:string;
begin
texto := 'SUA STRING';
varletras := ´´;
varnumeros := ´´;
for i:=1 to Length(Texto) do
if (Texto[i] in [´0´..´9´]) then
varnumeros := varnumeros+Texto[i]
else
varletras := varletras + Texto[i];
end;

Ao final desse código a variável numletras terá as letras e a variável varnumeros terá os números.