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

delphi

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