1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

var
  FDesktop: TFDesktop;
  Bitmap: TBitmap;

implementation

{$R *.DFM}

procedure TFDesktop.Draw;
var
   i: integer;
begin
     // Bild per Zufall aussuchen und anzeigen
     Randomize;
     i:= Random(5);
     Label1.Caption:= IntToStr(i);
     Bitmap.LoadFromFile('C:\' + IntToStr(i) + '.bmp');
     Canvas.Draw(0, 0, Bitmap);
end;

procedure TFDesktop.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     // Speicherplatz freigeben
     Bitmap.Free;
end;

procedure TFDesktop.FormDblClick(Sender: TObject);
begin
     // Bei Doppelklick auf Desktop anderes Bild anzeigen lassen
     Draw;
end;

procedure TFDesktop.FormShow(Sender: TObject);
var i:integer;
begin
     // Wenn Programm startet, Bild anzeigen
     Draw;
end;

procedure TFDesktop.FormCreate(Sender: TObject);
begin
     Bitmap:= TBitmap.Create;
end;                    

1:
2:

     Bitmap:= TBitmap.Create;
     Draw;