[Lazarus] Setter code

[José Mejuto]

Hello,

Is there any way to change the code generated when autocomplete a Setter 
in a class ?

Currently it generates something like:

procedure Tfrm.SetMyproperty(AValue: string);
begin
   if FMyProperty = AValue then exit;
   FMyProperty := AValue;
end;

And I need to change it (for conveniece) to something like:

procedure Tfrm.SetMyproperty(AValue: string);
begin
   if FMyProperty = AValue then exit;
   debugln('property changed');
   FMyProperty := AValue;
end;

Thank you.

--