tstringlist y nulos

[edgusano]

Aqui esta el codigo con las infimas modificaciones

Código Delphi [-]
var
  ArchivoCsv, Campos: TStringList;
  I, J: Integer;

begin
  ArchivoCsv := TStringList.Create;
  Campos := TStringList.Create;
  Campos.Delimiter := #9;  
  try
    ArchivoCsv.LoadFromFile(JvDirectoryEdit.EditText+'\'+Archivo);
    for I := 0 to ArchivoCsv.Count - 1 do
    begin
      Campos.Clear;
      Campos.DelimitedText := ArchivoCsv[i];
      if(Campos.Count > 5 ) then
      begin
        ADOTableImporta.Insert;
        //for J := 0 to ADOTableImporta.FieldCount - 1 do
        for J := 0 to Campos.Count - 1 do
        begin
          ADOTableImporta.Fields[J].Value := Campos[J];
        end;
        ADOTableImporta.Post;
      end;
    end;
  finally
    ArchivoCsv.Free;
    Campos.Free;
  end;
end;

El condicional en el cual pregunto por cuantos campos tiene el segundo tstringlist es porque en el archivo que proceso, viene un encabezado el cual no se debe procesar, ademas alguno similar a este se encontraria en otras partes del archivo, aqui pongo una muestra del archivo que estoy procesando:
00000MOVIMIENTOS
1086 1086000005080 0000000000001 NOE 21221662 1 9026 2005/08/29 2002/01/21 1969/12/31 19:00:00 570110 1027 00000061543 2 890934479 294999.00 570110 1005 00002462367 2 70546209 0
1086 1086000005080 0000000000001 NOE 21221662 2 9026 2005/08/29 2002/01/21 1969/12/31 19:00:00 570110 1027 00000061543 2 890934479 318461.00 570110 1006 00007976678 2 15365232 0

Espero esta vez si haya mas informacion con la cual me puedan ayudar con este problemita.