step - 4, y +5, FloatToStr (-step / 30));. Canvas. TextOut (x + step - 4, y +5, FloatToStr (step / 30)); y-step - 5> 0 then begin. Image1. Canvas. TextOut (x +10, y-step - 10, FloatToStr (step / 30));. Image1. Canvas. TextOut (x +10, y + step - 5, FloatToStr (-step / 30));; (step, 30);;; TForm1. Button5Click (Sender: TObject);
begin;;.
