Ayuda con canvas en Delphi

[[coso]]

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