Program Foto coppy Dalam penjualan Dalam Bentuk Delphi

      Menentukan tipe nya terlebih dahulu:
          type
          TForm1 = class(TForm)
          GroupBox1: TGroupBox;
          Label1: TLabel;
          Edit1: TEdit;
          Edit2: TEdit;
          Edit3: TEdit;
         Edit4: TEdit;
         Label2: TLabel;
         Label3: TLabel;
         Label4: TLabel;
         Label5: TLabel;
         Button1: TButton;
        Button2: TButton;
        RadioGroup1: TRadioGroup;
        XPManifest1: TXPManifest;
        MainMenu1: TMainMenu;

        Contoh Skrip nya

           procedure TForm1.Button1Click(Sender: TObject);

          var hlembar,htotal,bayar:currency;
           jmllembar:integer;

       begin
          //pendeskripsian tipe data
          hlembar:=StrToCurr(Edit1.Text);
           jmllembar:=StrToInt(Edit2.Text);

          htotal:=hlembar*jmllembar;

          case RadioGroup1.ItemIndex of
          0:
        begin
             if jmllembar>20 then
            bayar:=htotal-(htotal*10/100)
          else
            bayar:=htotal;
          end;
          1:
        begin
            bayar:=htotal;
          end;

          end;
           Edit3.Text:=CurrToStr(htotal);
           Edit4.Text:=CurrToStr(bayar);

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

          end.

Selamat mencoba dan sukses untuk semua nya,,,,^salam sukses dari saya^