Raster ein- und ausblenden

[Christian18]

Hallo,

wenn ich Strg + Alt drücke, möchte ich ein Raster zeichnen. Das bekomme ich auch hin. Wenn wieder losgelassen wird, dann soll das raster weg sein. Ich könnte mit ein bisschen aufwand die einzelnen punkte wieder zurückzeichen. also pixelfarbe wieder auf hintergrundfarbe setzen. Geht es aber auch besser?

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var x, y : Word;
begin
  if Shift = [ssCtrl, ssAlt] then
    begin
      for x:=0 to Form1.ClientWidth div 8 do
        begin
          for y:=0 to Form1.ClientHeight div 8 do
            begin
              Form1.Canvas.Pixels[x * 8, y * 8]:=clBlack;
            end;
        end;
    end;
end;