1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.zeichneBallon (xpos,ypos: integer);
  begin
     with ImBild.Canvas do begin
      brush.color:=clRed;                    //     hier muss denke ich mal mit - 
      ellipse(xpos,ypos,xpos+10,ypos+15);    //     random gearbeitet werden
                                                

     end;
  end;					

1:
2:
3:
4:
5:

case random(3) of
  0: brush.color := clRed;
  1: brush.color := clBlue;
  else brush.color := clGreen;
end;					

1:
2:
3:

const
  Colors = array[0..2] of TColor (clRed, clBlue, clYellow);
  ColorCount = 3;					

1:
2:

Randomize;
Brush.Color := Colors[Random(ColorCount)];