Inserção de Itens de um DBGrid em um ListBox

Estou com um problema quanto a inserção de itens do meu dbgrid em um listbox. Tenho um popupmenu e no evento onclick de um item de menu tenho o seguinte codigo...

var
i: Integer;
begin
if GRID.SelectedRows.Count > 0 then
for i := GRID.SelectedRows.Count - 1 downto 0 do
if rbNNumero.Checked then
begin
sdsReimpressao.GotoBookmark(TBookMark(GRID.SelectedRows[i]));
if not NumberExixts(sdsReimpressao.FieldByName(´NNUMERO´).AsInteger, lstMatricula) then
lstMatricula.Items.Add(sdsReimpressao.FieldByName(´NNUMERO´).AsString);
end;
end;

*NumberExixts é uma rorina q retorna true se um elemento esta em um listbox e false caso contrario

mas com esse codigo quanto dou um click com o botao direito do mouse naum consigo inserir o elemento no list box. O elemento q estava selecionado anteriormente que é inserido...

como eu poderia fazer essa inserção?