[Страдалецъ]

Так устроит?

Код:

procedure TForm43.LadderDraw(StepCount,MinStep,Delta: Integer);
var
  d,i,x,y: Integer;
begin
 x := 0; y := 0;
 PaintBox1.Canvas.Pen.Color := clRed;
 PaintBox1.Canvas.MoveTo(x,y);
 for i := 1 to StepCount
 do begin
    Inc(x,MinStep); PaintBox1.Canvas.LineTo(x,y);
    Inc(y,MinStep); PaintBox1.Canvas.LineTo(x,y);
    Inc(MinStep,Delta);
    end;
end;

procedure TForm43.PaintBox1Paint(Sender: TObject);
begin
 LadderDraw(10,4,3);
end;