TPanel: Height überschreiben

[Helmi]

ich habs so propiert:

Delphi-Quellcode:

private
  FHeight: Integer;
  procedure SetHeight(Value: Integer);

puplished
    property Height: Integer read FHeight write SetHeight;

{ ... }

procedure TMaskFrame.SetHeight(Value: Integer);
begin
  If FHeight <> Value then
    begin
      FHeight := Value;

      self.Height := Value + 30;
    end;
end;

Zur Erklärung, egal was eingegeben wird als Height, es soll immer 30 dazu gerechnet werden.

Wenn ich das ausführe, bekomm ich einen Stack-Überlauf.
Sprich, ne Endlosschleife.