Ereigniss erzeugen

[zorakh]

Dann verstehe ich eines nicht.
Ich habe

Delphi-Quellcode:

for x:=0 to (max-1) do begin
 for y:=0 to (max-1) do begin
  ColCords:=x;
  RowCords:=y;
  StringGrid1.repaint;
end;
end;

Und dann bei OnDraw Cells

procedure TForm1.TabelleDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender).Canvas do begin
       if (ACol=ColCords) and (ARow=ColCords) then begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
  end;
end;

max ist die Anzahl der Spalten im Grid.


Wieso wird nicht alles rot sondern bekomem ich eine "Zugriffsverlezungs"-Fehlermeldung?!