добрый вечер всем!!
Тут у меня вопрос назрел, ламерский, но спросить не у кого(((
Пример

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.LineTo(10, 10);
end;

Как увеличивать координаты х,у по нажатию клавиши?

Решение:

Код:
image1.Canvas.LineTo(image1.Canvas.PenPos.X+10, image1.Canvas.PenPos.Y+10);

или через глобальные переменные:

Код:
var 
    x,y:integer;
//......................
//......................
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.LineTo(x, y);
x:=x+5;
y:=y+5;
end;