[droguerman]

Código Delphi [-]
var 
   indice : integer;
begin
  with dbGrid1.dataset do
   begin
        indice := listbox1.items.add(fieldByName('nombre').asString);
        listbox1.items.objects[indice] := Pointer(recNo);
   end;
end;

luego puedes recuperar el object (es decir a que registro se refiere ese nombre usando)

Código Delphi [-]
  registro := Integer(listbox1.items.objects[indiceQueBuscas]);