hacer una funcion?

[Descendents]

Lo más seguro es que se digan listbox1, listbox2,listbox3 etc..., como les llama delphi por defecto cunado los pones en un form y no les cambias el nombre.

Pero de todas formas, puedes añadir una linia a la función que ponga.

lista.name := y el nombre;

Saludos