for i := 0 to NextDBGrid3.RowCount - 1 do if NextDBGrid3.Selected[i] then form5.ListBox1.Items.Add(NextDBGrid3.Cells[i, i] + ', ' + NextDBGrid3.Cells[1, i]); end;