Ok, entonces prueba simplemente:
Código Delphi
[-]
Archivo.LoadFromFile('C:INVENTARIO.txt');
for I := 0 to Archivo.Count -1 do
begin
Campos.Clear;
if Archivo[i] <> '' then
begin
Campos.CommaText:= Archivo[i];
Codigo:= Campos[0];
end;
end;
Es, básicamente, lo mismo que te comenté pero ignorando las líneas en blanco.