var i:integer; begin for i:=0 to dbgrid1.Columns.Count-1 do begin showmessage( dbgrid1.DataSource.DataSet.FieldByName(dbgrid1.Columns[i].FieldName).AsString); end; end;