[DarkMan]

Empezado por roman

Código Delphi [-]
 
var

  Item: TItem;
 
begin
  // Agregar un item (la @ es para pasar un puntero al Item y no el Item en sí)
  Lista.Items.Add(@Item);
 
  // Tomar un item (haces el moldeo con PItem en lugar de TItem)
  Item := PItem(Lista.Items[i])^;
end;

// Saludos

Una pequeña objección, este procedimiento sería incorrecto ya que Item es una variable local en este caso, y al ser un registro se elimina al finalizar la función. Al añadir su puntero a una lista de punteros, sólo podrás trabajar con él dentro de la propia función ya que después el item será eliminado. Una solución sería utilizar ficheros en lugar de Listas, utilizar una matriz global como habías comentado en el primer post, o cambiar el registro a clase.

Corregidme si me equivoco.

Un saludo.