вывод фигур при нажатии лкм

[kkasady]

нужно при нажатии на image левой кнопкой мыши выводить на экран геометрические фигуры (круг, квадрат, треугольник и потом заново).
вроде бы нужно через цикл и case делать, но выводиться все вместе, а не по отдельности.

цикл for i
case i
1: круг
2: квадрат
3: треугольник

[BDA]

Заводите глобальную переменную i. В обработчике нажатия:

i := (i + 1) mod 3;
case i of
0: круг;
1: квадрат;
2: треугольник;
end;

[kkasady]

спасибо.
еще такой момент.

//krestik
image1.Canvas.MoveTo(x-15,y+5);
image1.Canvas.LineTo(x-65,y+55);
image1.Canvas.MoveTo(x-15,y+55);
image1.Canvas.LineTo(x-65,y+5);
//krug
image1.Canvas.Ellipse(x-25,y-25,x+25,y+25);
//kvadrat
image1.Canvas.Rectangle(x-25,y-25,x+25,y+25);
//treugolnik
image1.Canvas.MoveTo(x-40,y+5);
image1.Canvas.LineTo(x-15,y+50);
image1.Canvas.MoveTo(x-40,y+5);
image1.Canvas.LineTo(x-65,y+50);
image1.Canvas.MoveTo(x-65,y+50);
image1.Canvas.LineTo(x-15,y+50);

при нажатии круг и квадрат рисуются прямо под курсором, т.е. куда нажал мышкой.
а крестик и треугольник рисуются немножко в сторонке.
как исправить, чтобы крестик и треугольник тоже под курсором рисовались.

[BDA]

//krestik
Canvas.MoveTo(x-25,y+25);
Canvas.LineTo(x+25,y-25);
Canvas.MoveTo(x+25,y+25);
Canvas.LineTo(x-25,y-25);
//treugolnik
Canvas.MoveTo(x,y-22);
Canvas.LineTo(x+25,y+23);
Canvas.LineTo(x-25,y+23);
Canvas.LineTo(x,y-22);