Program Berat Bedan

Berikut adalah program yang saya buat menggunakan delphi:
Untuk Download silahkan:
Klik Disi

Source Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    berat: TEdit;
    tinggi: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    kg: TLabel;
    Label3: TLabel;
    hasil: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    cek,bb,tb,bt:real;
begin
    bb:=strtofloat(berat.Text);
    bt:=strtofloat(tinggi.Text);
    tb:=bt/100;
    cek:=(bb)/(tb*tb);
    if (cek<18.5) then
      begin
        hasil.Text:='Underweight atau Kurus';
        memo1.Lines.Add('Berat badan kurang, anda perlu meningkatkan olahraga dan makan makanan padat kalori dari jenis comlex karbohidrat');
      end  ;

    if (cek>=18.5) then
        begin
        hasil.Text:='Berat Badan Ideal';
        memo1.Lines.Add('Bagus, Berat badan anda ideal, pertahankan!');
        end ;

    if (cek>=23) then
        begin
        hasil.Text:='Masuk Kategori Ideal';
        memo1.Lines.Add('Akan tetapi kategori ini masuk warning untuk menjaga pola makan dan perbanyak olahraga');
        end  ;

    if (cek>=25) then
        begin
        hasil.Text:='Memasuki Batas Obesitas';
        memo1.Lines.Add('Segera Buatlah tekad untuk program diet');
        end   ;

    if (cek>=30) then
        begin
        hasil.Text:='Kategori Obesitas';
        memo1.Lines.Add('Wow, anda obesitas, berbagai penyakit siap menghampiri anda, segera terapkan program diet lebih serius');
        end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  berat.Clear;
  tinggi.Clear;
  hasil.Clear;
  memo1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  application.Terminate;
end;

end.