Q.First; while not Q.Eof do begin Q.Edit; // update Q, but don't change index fields Q.Post; Q.Next; end;