codigo onmousedown

[Cosgaya]

hola a todos
tengo un problemilla, resulta que como tengo 777 objetos , para crear el codigo de cada uno e utilizado combinar correspondecia del word(he copiado todo el texto del word y lo he pegado en delhpi) para que me haga los 777 codigos y tengan distinto name. pero ahora en delphi a noser que entre en cada objeto y haga doble click en onmousedown no asigna el codigo al objeto ... si me pueden ayudar por si hay otra forma de que lo asigne...
gracias