[roman]

No sé, mil registros no se me hace mucho. Pero, como te decía, puedes optar por algo así:

Código Delphi [-]
var
  Archivo: TextFile;
  Linea: String;
  sl: TStringList;
  j: Integer;

begin
  AssignFile(Archivo, 'archivo.csv');
  Reset(Archivo);

  sl := TStringList.Create;
  
  try
    while not EoF(Archivo) do
    begin
      ReadLn(Archivo, Linea);
      sl.CommaText := Linea;
      
      Table.Append;

      for j := 0 to sl.Count - 1 do
        Table.Fields[j].Value := sl[j];

      Table.Post;
    end;
  finally
    sl.Free;
  end;

  CloseFile(Archivo);
end;

// Saludos