Dibujar Cuadricula

[Drake]

aki os dejo un ejemplo de lo k kiero hacer, como vereis se crean los cuadros en vertical pero cuando lo hace en horizontal sobreescriben a los otros, como podría hacer para k no se comiese las lineas verticales
http://ciberia.ya.com/AdvanceMaker/Project1.rar

[[seoane]]

No puedo abrir el archivo.

[Drake]

perdonad eske el ya.com este no vale pa na prueba a descargar aki:
http://www.megaupload.com/?d=10LKGVX0

[[seoane]]

Espero que no sea demasiado tarde

Código Delphi [-]
var
  i: Integer;
begin
  with Image1 do
  begin
    // La siguiente linea fuerza la creacion de un nuevo Bitmap
    Picture.Assign(nil);
    for i:= 1 to Width div 32 do
    begin
      Canvas.MoveTo(32*i,0);
      Canvas.LineTo(32*i,Height);
    end;
    for i:= 1 to Width div 32 do
    begin
      Canvas.MoveTo(0,32*i);
      Canvas.LineTo(Width,32*i);
    end;
  end;
end;