1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.btAutoOClick(Sender: TObject);
begin

 AutoOvar:=random(100);

 case AutoOvar of
 1..2: AutoOImage:='1.ico'; //Krankenwagen
 3..10: AutoOImage:='2.ico'; // Cabrio
 11..50: AutoOImage:='3.ico'; // Normales Auto
 51: AutoOImage:='4.ico'; //Feuerwehrauto
 52..57: AutoOImage:='5.ico'; //LKW kurz Grün
 58..71: AutoOImage:='6.ico'; //PolizeiAuto
 72..75: AutoOImage:='7.ico'; //Quad
 76..88: AutoOImage:='8.ico'; //Pick-Up Truck
 89..93: AutoOImage:='9.ico'; //LKW Ohne Anhänger Schwarz
 94..99: AutoOImage:='10.ico'; //LKW Lang Gelb
 end;

AutoO.picture.LoadFromFile(AutoOImage);
end;