[[Bicho]]

Hola pues puede usar la función copy y obtener el substring ( si siempre son cuatro números será fácil)

Código Delphi [-]
Valor := Copy(Table1.Fields[0].AsString, 3, 4) // 3 es la posición inicial a copiar y cuatro la longitud de texto a copiar

Luego puedes hacer comprobaciones de si es un entero o no capturando las excepciones.

Tambien puedes hacer un bucle carácter a carácter del String a partir del NC y copiar los números del string a una variable auxiliar hasta que encuentres un carácter no numérico.

Código Delphi [-]
var cadena, aux : String;
  Cadena := Table1.Fields[0].AsString; 
  aux := '':
  for x := 3 to Length(Cadena)-1 do begin
    if Cadena[x] in ['0'..'9'] then aux := aux + Cadena[x]
    else break;
  end;

Espero te sirva.

Saludos