DBGrid - multiselecao de registros

// Multiseleção de Registros em DBGrid - VERSAO FINAL

procedure TForm1.Button1Click(Sender: TObject);

var

  Lista: TBookMarkList;

  i    : integer;

begin

  Lista := Grid.SelectedRows;

  for i := 0 to Pred(Lista.Count) do

  begin

    Qy.GotoBookmark(Pointer(Lista[i]));

    ListBox.Items.Add(Qy.FieldByName('codigo').asString);

  end;

end;