Es fehlt auch das private Feld.
Ist ja klar, das du dir so ne Endlos-Rekursion bastelst.
Delphi-Quellcode:
TTest = class(TObject)
strict private
FProperty1: Integer;
procedure SetProperty1(val : Integer);
function GetProperty1 : Integer;
public
property Property1 : Integer read GetProperty1 write SetProperty1;
end;
...
function TTest.GetProperty1: Integer;
begin
result := FProperty1;
end;
procedure TTest.SetProperty1(val : Integer);
begin
FProperty1 := val; // SetPropery wird wieder aufgerufen --> Endlosschleife
FProperty1 := FProperty1 + 1;
end;