ciao,

non credo che tu puoi puntare al record con il valore della variabile i.

....io farei + o - cosi:
codice:
var
testo:string;
.....
QueryEventi.first;
while not QueryEventi.eof do
   begin
    testo := QueryEventi.fieldbyname('nomefield').asstring;
    QueryEventi.next;
   end;
ciao