[[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;