Moin,
eine Winzigkeit fällt mir noch ein, um das Ganze "minimal " schneller zu bekommen: dreh die Schleife um und lass alle Berechnungen daraus weg:
dec(z);
for x := z downto 0 do begin
Der Vergleich auf 0 ist "einfacher" und damit schneller als der Vergleich auf einen festen (berechneten) Wert.
Dürfte zwar nicht DER Bringer sein, aber wenn's auch nur ein Wenig hilft..
Gruß
Dirk