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