Здравствуйте, <Аноним>, Вы писали:
А>Net ne zhivet
Ну еще бы. Классная идея — у проперти адрес брать...
А>Eshe misli?

var
  R: TRect
begin
...
  R:= BoundsRect;
    ClipRect(@R);
...
end;