Code
for i:=0 to setkawidth do begin
image1.canvas.moveto(i*setka_step,0);
image1.canvas.lineto(i*setka_step,image1.heigth);
end;
for i:=0 to setkaheigth do begin
image1.canvas.moveto(0,i*setka_step);
image1.canvas.lineto(image1.width,i*setka_step);
end;