Como extraer solo los numeros en delphi

[ecfisa]

Hola.

Otra opción:

Código Delphi [-]
function GetNumericCode(const strCode: string): Integer;
var
  c,i: Integer;
begin
  Result := 0;
  c := 1;
  for i := Length(strCode) downto 1 do
    if strCode[i] in ['0'..'9'] then
    begin
      Result := Result + (Ord(strCode[i])-Ord('0')) * c;
      c := c * 10;
    end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessageFmt('%d',[GetNumericCode('CODIGO201')]);
end;

Saludos