обработка искл. ситуации при изменении масштаба

[Torkve]

Есть такая задача - при выходе фигуры за пределы поля видимости - должна возникать искл. ситуация и сообщение об ошибке

Поможете?)

Прошу прощения, если запостил лишнее)

[Stilet]

procedure Figure.MoveXY(x,y:integer);            {сдвиг фигуры}
var
i:integer;
xy:TPoint;
begin
xy:=center(AllPoints);
for i:=0 to length(Allpoints)-1 do
 begin
[I]   if AllPoints.X>Form1.Image1.Width then begin
    MessageBox(GetForegroundWindow,'Выход за пределы','Ошибка',MB_ICONERROR);
    exit;
   end;
   AllPoints[i].x:=AllPoints[i].x + (x - xy.x);
   AllPoints[i].y:=AllPoints[i].y + (y - xy.y);
 end;
end;

Сойдет? И так для всех точек и еще if AllPoints[i].X<0

[Selite]

if AllPoints[i].X

только так. А не перед условием [i] )

[Torkve]

Большое спасибо)