Bruge procedure variabel til at afvikle kode

Hej

Jeg har en procedure

procedure TegnTing(tal:integer);
begin
image1.picture.loadfromfile('c:\blabla.bmp');
end;

Nu vil jeg gerne bruge variablen "tal" til at afgøre hvilket image der bliver sat. Altså

TegnTing(1) -> image1.picture.......
TegnTing(2) -> image2.picture.......
osv.

Kan det kun gøres med case/if-sætninger, eller kan det gøres smartere?

/Morten