var i:Integer;
begin
// 你必须先到Object Inspector把DBGrid属性Options
// 中的 dgRowSelect 和 dgMultiSelect 设成true
for i:=0 to DBGrid1.SelectedRows.Count-1 do begin
DBGrid1.DataSource.DataSet.Bookmark:=DBGrid1.SelectedRows.Items[i];
ListBox1.Items.Add(Table1CustNo.AsString);
end;