Desde un DBGrid a un ListBox

[eddg]

Buenos Días ante todo...
Mi problemita es el siguiente:
En la ayuda de Delphi (F1), sale este Código de ejemplo:

============================================

Código Delphi [-]
procedure Tcomponentes.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin
          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

============================================

Ese código sirve para Insertar una Fila seleccionada de un DBGrid en un LIST BOX, excelente, sin embargo, Yo necesito Agregar sólo una Columna de esa FILA

Es decir, en la Fila tengo, Nombre, Telefono y e-mail, Pero sólo quiero agregar al ListBox es el Nombre, y tener guardado en alguna parte el telefono para usarlo en otro Objeto....

¿como hago para solo agregar un campo de la Fila?

Muchas Gracias de antemano a quien pueda ayudarme con este problemita!