Recorrer un excel o cvs

[roman]

Suponiendo que es un archivo separado por comas:

Código Delphi [-]
var
  Archivo: TStringList;
  Campos: TStringList;
  I: Integer;

begin
  Archivo := TStringList.Create;
  Campos := TStringList.Create;

  try
    Archivo.LoadFromFile('archivo.csv');

    for I := 0 to Archivo.Count - 1 do
    begin
      Campos.CommaText := Archivo[i];
      {
         Ahora accedes a los campos de la línea en turno con
         Campos[0], Campos[1], Campos[2], etc.
      }
    end;
  finally
    Archivo.Free;
    Campos.Free;
  end;
end;

Si el archivo está separado por ; entonces puedes usar DelimitedText en lugar de CommaText especificando ';' en la propiedad Delimiter de Campos.

// Saludos