loop := 0; while loop <= DBGD.SelectedRows.Count - 1 do begin DBGD.DataSource.DataSet.Bookmark := DBGD.SelectedRows.Items[sloop]; sBookMark := DBGD.DataSource.DataSet.GetBookmark; DBGD.DataSource.DataSet.GotoBookmark(sBookMark); sPH := DBGD.DataSource.DataSet.FieldByName('PH').AsString; Print; DBGD.DataSource.DataSet.FreeBookmark(sBookMark); inc(loop); end;