procedure TformWindow.formConvertClick(Sender: TObject);
var
  csvReader: TnvvCSVStringReader;
  tstrlistCSV: TStringList;

  ceitemItem: CEItem;
  listCEItems: TList<CEItem>;

  arrayJSON: TJSONArray;
  jsonItem: TJSONValue;

  iCounter: integer;
begin

  tstrlistCSV := TStringList.Create;

  tstrlistCSV.AddStrings(formCSV.Lines);

  csvReader := TnvvCSVStringReader.Create;
  csvReader.HeaderPresent := true;
  csvReader.DataString := tstrlistCSV.Text;
  csvReader.Open;
  //ShowMessage('CSVReader Created!');

  {
  if csvReader.HeaderPresent then
    for iCounter := 0 to csvReader.FieldCount - 1 do
      ShowMessage(csvReader.Fields[iCounter].Name);
  }

  while not csvReader.Eof do begin
    //ShowMessage('Looping through csvReader!');
    ceitemItem := CEItem.Create;
    //ShowMessage('Created item!');
    InitializeCEItem(ceitemItem, csvReader.Fields[0].Value, csvReader.Fields[1].Value, 'No Text For Short Desc', 'No Text For Long Desc');
    //ShowMessage('Initialized item!');
    listCEItems.Add(ceitemItem);
    ShowMessage('Added item!');
  end;

  ShowMessage('Added CEItems!');

  arrayJSON := TJSONArray.Create;

  for iCounter := 0 to listCEItems.Count - 1 do begin
    arrayJSON.Add(TJson.ObjectToJSONString(listCEItems[iCounter]));
  end;

  ShowMessage('Filled JSON array!');

  formJSON.Lines.Text := arrayJSON.ToJSON;

  listCEItems.Free;
  arrayJSON.Free;
  csvReader.Free;
  tstrlistCSV.Free;
end;