Bei deinem Beispiel sieht man den Unterschied nicht direkt, wenn man aber eine kleine Erweiterung durchfüht schon:
Delphi-Quellcode:
TTest = class(TObject)
private
FPort: Integer;
Fmax: Integer;
public
procedure setPort( Value: Integer);
published
property Port: Integer read FPort write setPort;
property Max: Integer read FMax write FMax;
end;
procedure TTest.setPort( Value: Integer);
begin
if Value > 0 then FPort := Value;
end;