Classe Pedido e itens

Bom dia a todos
Criei duas classes TPedido e TItens com seus métodos e propriedades, no pedido tenho a Variável FValidade que recebo da aplicação
Gostaria muito de poder ver esta Variável em um set da classe TItens, só que não estou conseguindo
procedure TItens.SetCodProduto(const Value: String);
begin
If( FValidade>....) Then
Código
End

Obrigado