[[movorack]]

Puedes recorrer uno a uno los caracteres evaluando si es un número.

Código Delphi [-]
function ExtraeNumeros(S: string): Integer;
  var
    i: Integer;
    lStTemp: string;
begin
  Result := 0;
  lStTemp := '';

  for i := 1 to Length(S) do
  begin
    if CharInSet(S[i], ['0'..'9']) then
      lStTemp := lStTemp + S[i];
  end;

  TryStrToInt(lStTemp, Result);
end;

También podrías usar Expresiones regulares