Sich selbst aufrufender Algorithmus

[R2D2]

Das was du suchst ist eine rekursive Funktion.

Ein einfaches Beispiel:

Delphi-Quellcode:

function Zaehle (Zahl: Integer): Integer;
begin
if Zahl < 20 then result := zaehle(Zahl)+1;
end;