Evento con valores de retorno...

[Bacterion]

A ver si esto te vale:

Defines el tipo de evento que necesitas (ejemplo, todo parecido con la realidad es algo, no me acuerdo)

TMiEventoDeLaMuerte = procedure (Sender: TObject; const ValorQueTeDoy Integer; var ValorQueTeDejoModificar Integer);

Defines la propiedad en tu objeto para que los demás enganchen el evento (como pasa con el onclik)

TMiObjetoTerrible = (partes omitidas para proteger a Sadam)
private
FOnCambioEnorme: TMiEventoDeLaMuerte;
public
property OnCambioEnorme: TMiEventoDeLaMuerte read FOnCambioEnorme write FOnCambioEnorme;
end;

Y solo queda que en el método que hace de set de tu propiedad haga algo parecido a :

procedure TMiObjetoTerrible.SetMiPropiedadMutante(Value: Integer);
var
NuevoValor: Integer;
begin
NuevoValor := Value;
if Assigned(OnCambioEnorme) then
OnCambioEnorme(Self, Value, NuevoValor);
FMiPropiedadMutante := NuevoValor;
// por ejemplo. Esto lo que hace es dejar al que recibe el evento que pueda cambiar el valor (un poner que dicen por ahí)
end;