if bmi > 0 then
begin
if bmi < 20 then
begin
if ((bmi >= 18.5) and (bmi < 20)) then
screenbmilabel.caption := 'ภาวะทุพโภชนาการ ระดับ 1' else
if ((bmi >= 17) and (bmi < 18.5)) then
screenbmilabel.caption := 'ภาวะทุพโภชนาการ ระดับ 2' else
if ((bmi >= 16) and (bmi < 17)) then
screenbmilabel.caption := 'ภาวะทุพโภชนาการ ระดับ 3' else
if (bmi < 16) then
screenbmilabel.caption := 'ภาวะทุพโภชนาการ ระดับ 4';
screenbmilabel.font.color := clred;
end else
if (bmi >= 20) and (bmi <= 24.9) then
begin
screenbmilabel.caption := 'ภาวะโภชนาการปกติ';
screenbmilabel.font.color := clgreen;
end else
if bmi > 24.9 then
begin
if (bmi > 24.9) and (bmi < 30) then
screenbmilabel.caption := 'ภาวะโภชนาการเกิน ระดับ 1' else
if (bmi >= 30) and (bmi < 40) then
screenbmilabel.caption := 'ภาวะโภชนาการเกิน ระดับ 2' else
if (bmi >= 40) then
screenbmilabel.caption := 'ภาวะโภชนาการเกิน ระดับ 3';
screenbmilabel.font.color := clred;
end;
end;