A falta de una solución más inteligente, lo que he hecho en una situación casi igual es leer línea a línea el archivo, con un TStringList, y usar la función Copy en cada línea para extraer los campos:
Código Delphi
[-]
Codigo := Copy(Linea, 1, 3);
Nombre := Copy(Linea, 4, 20);
Pais := Copy(Linea, 24, 15);
// Saludos