Stringgrid färben

[MondoShiva]

Ich weiss es ist dumm aber es will mir nicht in den kopfgehen wie ich diese endlos lange procedure verkürzen kann ich wäre sehr dankbar wenn mir jemand sagen könnte wie ich eine einfachere schleife daraus mache

Delphi-Quellcode:

begin
 i := 2;
  if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
  end;
  i := 4;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;
      i := 6;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;
      i := 8;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;
      i := 10;
    if (ARow=i) and (StringGrid.Cells[ACol,ARow] <> '') then
  begin
    StringGrid.Canvas.Brush.Color := clSkyBlue;
    end;