Umur

procedure TForm2.Button1Click(Sender: TObject);
var a:integer ;
begin
a:=StrToInt(Edit1.Text);

if a > 150 then
Edit2.Text := 'Calon2 Penghuni KU**R'
else
if a > 110 then
Edit2.Text := 'Bersiaplah'
else
if a > 60 then
Edit2.Text := 'Manula'
else
if a > 20 then
Edit2.Text := 'Dewasa'
else
if a > 12 then
Edit2.Text := 'Remaja'
else
if a > 5 then
Edit2.Text := 'Anak-Anak'
else
if a > 2 then
Edit2.Text := 'Balita'
else
if a > 1 then
Edit2.Text := 'Batita'
else
Edit2.Text := 'Kandungan';


end;