[Страдалецъ]

На кой вам выводить каждое значение? Не проще посчитать сколько всего было Да/Нет? Вот так устроит?

Код:

var
  fi: TSearchRec;
  f: TextFile;
  Res: record Yes,No: Integer; end;
  FPos,FLen: Integer;
  Path, s: String;
begin
 FPos := 50; //Позиция поля в строке
 FLen := 3; // Длина поля
 Res.Yes := 0; Res.No := 0;
 Path := ExtractFilePath(ParamStr(0));
 if FindFirst(Path+'*.csv', faAnyFile, fi) = 0
 then repeat
       AssignFile(f, Path + fi.Name);
       Reset(f);
       while not Eof(f)
       do begin
          ReadLn(f, s);
          if Copy(s, FPos, FLen) = 'ДА'
          then Inc(Res.Yes);
          if Copy(s, FPos, FLen) = 'НЕТ'
          then Inc(Res.No);
          end;
       CloseFile(f);
      until FindNext(fi) <> 0;
 FindClose(fi);
 ShowMessage(Format('Да:%d, Нет:%d',[Res.Yes, Res.No]));
end;