DrawCell vom Drawgrid belegt ganzes Programm

[Blup]

Im OnDrawCell wird immer genau eine Zelle gezeichnet, nicht das komplette Grid.

Delphi-Quellcode:

procedure TfrmMain.gridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  I: Integer;
begin
  for I := Low(GleisArray) to High(GleisArray) do
  begin
    if (GleisArray[i].x = ACol) and (GleisArray[i].y = ARow) then
      Gleis.Zeichne(Grid.Canvas, Rect, GleisArray[i]);
  end;
end;

procedure TGleisPic.Zeichne(ACanvas: TCanvas; ARect: TRect; const AItem: TGleisrecord);
begin
  with AItem do
  begin 
         if Art = 'Text'      then Text(ACanvas, ARect, Feldtext)
    else if Art = 'Gerade'    then Gerade(ACanvas, ARect, Gesetzt)
    else if Art = 'WeicheOL'  then WeicheOL(ACanvas, ARect, Gesetzt)
    else if Art = 'WeicheOLG' then WeicheOLG(ACanvas, ARect, Gesetzt)
    else if Art = 'WeicheOR'  then WeicheOR(ACanvas, ARect, Gesetzt)
    else if Art = 'WeicheORG' then WeicheORG(ACanvas, ARect, Gesetzt)
    else if Art = 'WeicheUL'  then WeicheUL(ACanvas, ARect, Gesetzt)
// und so weiter... 
  end;
end;