var i: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  if Grid.SelectedRows.Count > 0 then
    with Grid.DataSource.DataSet do
      for i := 0 to Grid.SelectedRows.Count - 1 do
      begin
        GotoBookmark(pointer(Grid.SelectedRows.Items[i]));
        SL.Add(Fields[0].AsString);
      end;
  ShowMessage(SL.Text);
  SL.Free;
end;