Separar en campos un archivo de texto

[roman]

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