Построение прямых

[nassvora]

Прошу помощи. С первым поступил так:

begin
  pb.Canvas.MoveTo(28,28);
  x:=800;
  y:=Trunc(x*k); // кстати что делать с аргументом b я так и не понял
  pb.Canvas.LineTo(x,y);
end;