Лесенка

MoveToEx(Self.Canvas.Handle, 10, 20, nil); // выставляем начальное положение линии в 10 пикселей по горизонтали от левого края и 20 пикселей от верха (или используйте Canvas.MoveTo)
 
LineTo(Self.Canvas.Handle, 50, 20); // проводим линию от текущего положения до точки 50 пикселей от левого края и 20 пикселей от верхнего (или используйте Canvas.LineTo).

type
  TForm1 = class(TForm)
    ...
  private
    pt: TPoint; // или сделать глобальную переменную
    ...
 
implementation
 
const
  STEP = 10; // длина "ступеньки" в пикселях
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  pt.x := 5; // начальная координата X
  pt.y := 5; // начальная координата Y
  with Image1.Canvas do begin
    Pen.Color := clRed; // задаем цвет линии
    Pen.Width := 1;     //        толщину линии
    Pen.Style := psDot; //        стиль линии
    PenPos := pt; // выставляем начальное положение
    // или MoveTo(pt.x, pt.y);
  end;
end;
 
procedure TForm1.BtnRightClick(Sender: TObject);
begin
  Inc(pt.x, STEP);
  Image1.Canvas.LineTo(pt.x, pt.y);
end;
 
procedure TForm1.BtnDownClick(Sender: TObject);
begin
  Inc(pt.y, STEP);
  Image1.Canvas.LineTo(pt.x, pt.y);
end;