Fehlermeldung "zugewiesener Wert wird niemals benutzt"?

[Popov]

EWeiss hat Recht, das könnte man auch so lösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Col: array[0..8] of TColor = (clblue, clyellow, clgreen, clblue, clfuchsia,
    clred, clskyblue, clteal, clteal); //Farben
var
  i, rAnzahl, rVerzogerung, x, y, rDicke :integer;
begin
  randomize ;

  rAnzahl:= StrToInt (E_Anzahl.Text);
  rVerzogerung:= StrToInt (E_Pause.Text);

  for i:=1 to rAnzahl do
  begin
    x:= random (800);
    y:= random (800);
    rDicke:= random (30);

    if ColorRadioGroup.ItemIndex > -1 then // In RadioGroup alle 9 Farben auflisten
      Canvas.Brush.Color := Col[ColorRadioGroup.ItemIndex] or random (8000000)
    else
     Canvas.Brush.Color := clBlack;

    Canvas.Ellipse(x,y, x+rDicke, y+rDicke) ;
    sleep (rVerzogerung);
  end;
end;

Nur was soll das bewirken?

Delphi-Quellcode:

... or random (8000000)
...