while not dbgrid1.dataset.eof do begin s:=dbgrid1.dataset.fieldbyname('name').asstring; showmessage(s); dbgrid1.dataset.next; end;