Delphi İç İçe For Döngüsü

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,l:Integer;
begin
        l:=20;
             for i := 3 Downto 1 do
               begin
                 for k := 2 to 4 do
                   begin
                     Self.Canvas.TextOut(100,10+l,IntToStr(k));
                     Self.Canvas.TextOut(120,10+l,IntToStr(i));
                     l:=l+20
                   end;
               end;
end;