[igamerpc]

No use pero he probado, para averiguar extraer solo prefijo para poder registrar.
Te voy a poner ejemplo:

Código Delphi [-]
  const number=['0'..'9'];
  telefono: string; 
  p: string;
  i: integer
  telefono:=(911)51561;
  p := ''";
  for i := 1 to length(telefono) do
  begin
    if telefono[i] in number then
      p := p + telefono[i];
  end;

Eso salia todos numero 91151561
Si utilizo con Copy(telefono, 2,4) salia bien pero el problema cuando el prefijo 91 salia 91).