//Möglichkeit 1

Function CountNumUp()
var i : integer;
begin
Memo1.Clear();  // MemoFeld leeren
for i:= 1 to 10 do   // Schleifenkopf

Memo1.Lines.Add (i);   // Zahl i ins Memofeld 'adden'

end;

//Möglichkeit 2

Function CountNumDown()
var i : integer;
begin
Memo2.Clear();
for i:= 10 downto 1 do

Memo2.Lines.Add (i);
end;