Okay, I start with this:

Okay, I start with this:

procedure PrintSquares1(aInteger: integer);
var
i: Integer;
begin
for i := 1 to aInteger do
begin
WriteLn(i, ' - ', i * i);
end;
end;

Then I go to this:

procedure PrintSquares2(aInteger: integer);
begin
if aInteger > 0 then
begin
PrintSquares1(aInteger - 1);
WriteLn(aInteger, ' - ', ainteger * aInteger);
end;
end;

And finally this (using Spring4D Collections):

procedure PrintSquares3(aLength: integer);
var
List: IList;
i: integer;
begin
List := TCollections.CreateList;
for i := 1 to aLength do
begin
List.Add(i);
end;
List.ForEach(procedure(const aInt: integer) begin WriteLn(aInt, ' - ', aInt * aInt) end);
end;

But I feel like there should be a better way to fill that collection.

Thoughts?