Quitar todas las letras de una cadena

[MAXIUM]

Muchas gracias. Me has abierto un mundo

Pero creo que la expresión correcta seria la siguiente:

Código Delphi [-]
//Agregar System.RegularExpressions en los uses

function QuitarLetras(const S: string) : string;
begin
  Result := TRegEx.Replace(S, '[^1234567890]', '', [roIgnoreCase, roMultiLine]);
end;

Por otra parte ¿por qué S es declarada constante?