Рисование ровного квадрата/круга при нажатой клавише Ctrl

[DeeDe]

Здравствуйте! Я уже как месяц занимаюсь Delphi. Решил довести графический редактор до ума. Такая проблемка возникла. Допустим в Peint или Photoshop при зажатии Ctrl любая фигура рисуеться ровно. Допусти квадрат можно нарисовать только квадратом а не растянуть в прямоугольник, круг можно сделать только кругом а не овалом.
Вот програмный код квадрата:
MouseMove:
2: begin
if (ssCtrl in Shift) then
begin
image1.Canvas.Rectangle(x0,y0,x1,y1 );
image1.Canvas.Rectangle(x0,y0,x1,x1 );
end;
image1.Canvas.Rectangle(x0,y0,x,y);
image1.Canvas.Rectangle(x0,y0,x,y);
x1 := x;
y1 := y;
end;
MouseUp:
2: begin
Image1.Canvas.Pen.Mode := pmCopy;
image1.Canvas.Rectangle(x0,y0,x1,y1 );
image1.Canvas.Rectangle(x0,y0,x,y);
end;

При зажатии кнопки Ctrl Стирание квадрата перестаёт дейтвовать. Тоесть когда выбрал квадрат и водиш зажатой левой кнопкой мыши по канве то рисуеться жутко много квадратом/прямоугольников вместе с водяшимся, в общем происходит ПОЛНЫЙ бред . Вот подскажит екак сделать хотябы чтото похожее на рисование ровного круга или квадрата при зажатой кнопке CTRL .