Specyficzny zapis cz. 2

Witam,

Mam taki zapis VC4-888HJ34. W jaki sposób zapisać go w tej postacji
żeby występowały w nim same cyfry. (cyfry i litery w zapisie za każdym razem są inne). Czyli zapis powinien wyglądać tak: 488834.

Z góry dziekuję za wszystkie rozwiązania tego problemu.

Pozdrawiam,
Piotr Murawski

function tylkoliczby(str:string) : integer;
var i: byte;
temp : string;
begin
temp:='';
for i:=1 to Length(str) do
Begin
if Str[i] In ['0'..'9'] Then
temp:=temp+str[i];
end;
Result:=StrToInt(temp);
End;

powinno dzialac