¡Ah! Esto es excelente
andre1569, yo ya nada más añadiría que una tercera opción sería usar Tag para apuntar a un objeto:
Código:
type
TMyFieldData = class
{ propiedades extra }
end;
...
{ Crear los campos }
Field := TStringField.Create(Self);
MyFieldData := TMyFieldData.Create;
MyFieldData.Propiedad := valor;
Field.Tag := LongInt(MyFieldData);
...
{ Usar las propiedades }
Valor := TMyData(Field.Tag).Propiedad;
...
{ Liberar objetos }
TMyFieldData(Field.Tag).Free;
// Saludos