Здравствуйте, Аноним, Вы писали:

А>Подскажите пожалуйста!!!
А>Я создаю массив координат нажатием курсора мыши по Image
А>procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
А> Shift: TShiftState; X, Y: Integer);
А>begin
А> Inc(count);
А> p[count].x:=x;
А> p[count].y:=y;
А>end;

А>Каким образом мне построить Polygon по последним 4-м точкам?
А>Я могу лишь построить по первым 4-м точкам
А>Image1.Canvas.Polygon(Slice(p,4));

А почему бы не использовать динамический массив? В момент нажатия мыши увеличиваем его длину и заполняем координаты. Затем этот массив и передаем в Polygon(). И никаких Slice не понадобится.