Prueba haciendo lo siguiente:
Código Delphi
[-]objetoX.atributo1:=arreglo[Xposicion].atributo1;
objetoX.atributo2:=arreglo[Xposicion].atributo2;
...
...
Aunque seria mejor que te hicieras una rutina(Procedimiento) para poder hacerlo

o quisas tambien exista alguna funcion o procedimiento del propio delphi.

.
Saludos...

__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7