и снова canvas

[~Psycho~]

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

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

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

[AlDelta]

image1.Canvas.LineTo(image1.Canvas.PenPos.X+10, image1.Canvas.PenPos.Y+10);

Или введите глобальные переменные...

[~Psycho~]

вот как раз глобальными переменными мне и нужно

[Тутонхамон]

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