Delphi and txt

Const
  ConnectStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties="Text;HDR=No";';
begin
 AdoQuery1.ConnectionString := Format(ConnectStr, ['\\VBOXSVR\d_drive\']);
 AdoQuery1.SQL.Text := 'select top 1 F1,count(F1) as Cnt from Голосовалка#txt group by F1 order by count(F1) desc';
 AdoQuery1.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
var spisok : TStringList;
  i, cntAll, cntCur, cntMax, indexMax : integer;
begin
  spisok := TStringList.Create;
  try
    spisok.LoadFromFile(ExtractFilePath(Application.ExeName)+'rr.txt');
 
    cntAll :=0;
    for i := 0 to spisok.Count - 1 do begin
      spisok.Strings[i]:=Trim(spisok.Strings[i]);
      if spisok.Strings[i]<>'' then   Inc(cntAll);
    end;
 
    spisok.Sort;
 
    cntMax:=0;
    cntCur := 1;
    indexMax := -1;
    for i := 0 to spisok.Count - 2 do
       if spisok.Strings[i]<>'' then begin
         if spisok.Strings[i]=spisok.Strings[i+1] then Inc(cntCur) else cntCur := 1;
         if cntCur>cntMax then begin cntMax:=cntCur; indexMax:=i end;
       end;
 
    if indexMax<0 then
        Label1.Caption := 'вообще ничего не найдено, обратитесь к Чурову!'
    else
       Label1.Caption := spisok.Strings[IndexMax]+' голосов '+IntToStr(cntMax)+
       ' из '+IntToStr(cntAll);
  finally
    spisok.free;
  end;
 
end;