Fehlermeldung "zugewiesener Wert wird niemals benutzt"?

[Popov]

Nennt mich altmodisch, nicht mehr zeitgemäß, analfixiert, aber ein unformatierter Code tut mir in den Augen weh. Wie soll man da verstehen was das Programm macht?

Delphi-Quellcode:

procedure TForm1.B_StartClick(Sender: TObject);
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 C_blau.Checked then
    begin
      Canvas.Brush.Color:= clblue or random (8000000);
    end
    ELSE
    begin
      IF C_Gelb.Checked then
      begin
      Canvas.Brush.Color:= clyellow or random (8000000);
      end
      ELSE
      begin
        IF C_gruen.Checked then
        begin
          Canvas.Brush.Color:= clgreen or random (8000000);
        end
        ELSE IF C_blau.Checked then
        begin
          Canvas.Brush.Color:= clblue or random (8000000);
        end
        ELSE
        begin
          IF C_pink.Checked then
          begin
            Canvas.Brush.Color:= clfuchsia or random (8000000);
          end
          ELSE
          begin
            IF C_red.Checked then
            begin
              Canvas.Brush.Color:= clred or random (8000000);
            end
            ELSE
            begin
              IF C_ighlight.Checked then
              begin
                Canvas.Brush.Color:= clskyblue or random (800000);
              end
              ELSE
              begin
                IF C_teal.Checked then
                begin
                  Canvas.Brush.Color:= clteal or random (8000000);
                end
                ELSE
                begin
                  IF C_navy.Checked then
                  begin
                    Canvas.Brush.Color:= clteal or random (8000000);
                  end
                  ELSE
                  begin
                    Canvas.Brush.Color:= clblack;
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;

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

procedure TForm1.B_ClearClick(Sender: TObject);
begin
  refresh;
  E_Anzahl.Text:= ' ';
  E_Pause.Text:= ' ';
end;

Oder noch anders. Wozu die nagen Begins und Ends?

Delphi-Quellcode:

procedure TForm1.B_StartClick(Sender: TObject);
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 C_blau.Checked then
      Canvas.Brush.Color := clblue or random (8000000)
    else if C_Gelb.Checked then
      Canvas.Brush.Color := clyellow or random (8000000)
    else if C_gruen.Checked then
      Canvas.Brush.Color := clgreen or random (8000000)
    else if C_blau.Checked then
      Canvas.Brush.Color := clblue or random (8000000)
    else if C_pink.Checked then
      Canvas.Brush.Color := clfuchsia or random (8000000)
    else if C_red.Checked then
      Canvas.Brush.Color := clred or random (8000000)
    else if C_ighlight.Checked then
      Canvas.Brush.Color := clskyblue or random (800000)
    else if C_teal.Checked then
      Canvas.Brush.Color := clteal or random (8000000)
    else if C_navy.Checked then
      Canvas.Brush.Color := clteal or random (8000000)
    else
      Canvas.Brush.Color:= clblack;

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

procedure TForm1.B_ClearClick(Sender: TObject);
begin
  refresh;
  E_Anzahl.Text:= ' ';
  E_Pause.Text:= ' ';
end;