Código Delphi [-] .............................. n1 := strtoint(edit1.Text); if (n1 > 0) and (n1 < 50) then label1.Font.Size := label1.Font.Size + 2;
.............................. n1 := strtoint(edit1.Text); if (n1 > 0) and (n1 < 50) then label1.Font.Size := label1.Font.Size + 2;