Membuat Aplication pada Delphi 7

Aplication berbeda dengan console aplication, dimana console aplication sendiri adalah aplikasi yang tidak mempunyai form dan berbasis teks. sedangkan Aplication 
sendiri memiliki form dan tidak berbasis teks (bergambar/memiliki icon/simbol-simbol).

            Untuk mengaktifkan mode Aplication sendiri akan muncul otomatis pada saat pertama kali membuka program delphi.
 contoh pembuatan aplikasi sederhana dengan Delphi 7. berikut ini adalah penghitungan Luas Persegi Panjang.
1. 

untuk keterangan diatas sebagai berikut :

Type	Caption	Name
Label1	Panjang
Label2	Lebar
Label3	Luas
Edit1	{kosongkan}	txtPanjang
Edit2	{kosongkan}	txtLebar
Edit3	{kosongkan}	txtLuas
Button1	Mulai	Button1
Button2	Hapus	Button2

2. setelah mengatur pada form, double-klik pada tombol Mulai untuk memulai pengetikan rumus/listing program

• berikut skrip luas persegi panjang :

    unit materi1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    txtPanjang: TEdit;

    txtLebar: TEdit;

    Label3: TLabel;

    txtLuas: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  Panjang,Lebar,Luas:integer;

begin

  Panjang:=StrToInt(txtPanjang.Text);

  Lebar:=StrToInt(txtLebar.Text);

  Luas:=Panjang*Lebar;

  txtLuas.Text:=IntToStr(Luas);

end;

end.

3. setelah pengetikan listing program, simpan lembar kerja kita dengan pilih menu File > Save As simpan sesuai folder yang diinginkan. kemudian simpan juga project dengan pilih menu File > Save Project As

4. setelah itu kita bisa mengujinya dengan tekan F9 atau klik tombol ini 

5. setelah berhasil di running maka akan muncul seperti ini 

6. kemudian isikan angka yang kamu inginkan 

:) >>Selamat Mencoba<< :)