Recorrer todos los objetos creados de una clase propia

[mierda]

Hola tios, teniendo la siguiente clase:


type
tprueba = class
nombre: string;
total: integer;
private
public
end;


¿como puedo recorrer todos los objetos creados de esta clase?

actualmente los metia en un listbox y los intento leer asi:


for i := 0 to ListBox1.items.count -1 do
begin
if (tprueba(ListBox1.items[i]).nombre) = 'josechu1' then
end


pero me da un error de memoria


Un saludo y gracias por adelantado.

[mierda]

Creamos un:

milista:tlist;
milista := tlist.create();
milista.add(la clase q hemos creado)

y luego recorremos milista y ya lo tenemos. Gracias y perdonar la ignorancia.