with dbgrid1.DataSource.DataSet do begin First; while not eof do begin fieldbyname('ReminderType').AsString; next; end; end;