Function vereinfachen, bei vielen if abfragen

[Hallo_Thomas]

Ich wollte eine Art function geschreiben, die wesentlichen eine Aufgabe haben soll,und zwar: Dass es zu jedem Wert,sagen wir Wertigkeit[0..1500] jeweils einein Wert(hier(Z)) gibt, der nach bedarf aufgerufen werden ( Dies soll ne Additionsaufgabe sein).

Delphi-Quellcode:

function zaehler(z:Integer):Integer; 
begin 
if z=0 then 
result:=x+y+z 
if z=1 then 
result:=x+y
if z=2 then 
result:=x+y+a
....///////dass sollte dann so bis if z=1500 then gehen 
end;