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

procedure TForm1.FormCreate(Sender: TObject);
begin
try                                                  <--(Bild)
Image1.Picture.LoadFromFile('c:\Programme\Borland\Zahl.bmp');
except
Caption := 'kein Bild';
randomize;                                      <--(Generator)
Zufall := random(1000) + 1;
end;