Hola,
de todas maneras, por lo que parece lo que quieres hacer es una cuadrícula. Lo mejor seria algo asi:
Código Delphi
[-]
canvas.Pen.Color := clBlack;
for i := 0 to (Canvas.Width div 10) - 1 do
begin
Canvas.MoveTo(i*10,0);
Canvas.LineTo(i*10,Height-1);
end;
for i := 0 to (Canvas.Height div 10) - 1 do
begin
Canvas.MoveTo(0,i*10);
Canvas.LineTo(Width-1,i*10)
end;
Y aun puedes usar el brush style y mas maneras... Saludos