∧,,∧　　うごきましたニャ。
　ミ,,ﾟДﾟ彡
　ﾐつ[|lllll］). 複数個Lineを重ねると
〜ﾐ　　ﾐ 　　全部同時に動いてしまうニャリ。
　 Ｕ''Ｕ

procedure TMyDraw.PropModified; {プロパティを変更した時の処理}
var f:TCustomForm;
var i:IDesigner;
begin
f:= GetParentForm(Self);
if f<> nil then begin i:=f.Designer; if i <>nil then i.Modified; end;
end;

ここのIDesignerが

var i:IDesignerHook;

こうだと思われ

>>216はやいなー。ネコにもわかるように教えてくれにゃ。
簡単なサンプルなど、、キボンヌ...