Zelle in DrawGrid dauerhaft einfärben

[hedie]

Hallo zusammen

Ich möchte ein "zeichnungstool" für kleine Grafiken erstellen.
Dazu müssen die Pixel recht gross sein.

Deshalb wollte ich dazu ein DrawGrid nehmen.

Um das Pixel bzw. die Zelle zu markieren, habe ich bisher folgenden Code:

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdSelected in State) then begin

    DrawGrid1.Canvas.Brush.Color := clBlue;
    DrawGrid1.Canvas.FillRect(Rect);


  end;

Die macht mir die Zelle auch blau, leider bleibt diese aber nicht blau, sobald ich eine andere Zelle anklicke.
Kann mir jemand sagen, wie ich dies erreiche, dass die Zelle markiert bleibt?

Später möchte ich dann zelle um zelle durchgehen um zu sehen welche pixel 1 sind und welche 0.

Danke schonmal