Game kartu magic sederhana

Aplikasi Operasi File

unit U_operasiFile;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls, FileCtrl;

Aplikasi Operasi Teks

unit U_operasiTeks;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    Button1: TButton;

    Button2: TButton;

    GroupBox1: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    RadioButton4: TRadioButton;

    RadioButton5: TRadioButton;

    RadioButton6: TRadioButton;

    memo1: TMemo;

    ComboBox4: TComboBox;

    Button3: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

Aplikasi Game Sederhana

unit U_timer;

interface

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;

type

  TForm1 = class(TForm)

    Image1: TImage;

    Image2: TImage;

    Image3: TImage;

    Image4: TImage;

    Image5: TImage;

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Timer1: TTimer;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Image1Click(Sender: TObject);

    procedure Image2Click(Sender: TObject);

    procedure Image3Click(Sender: TObject);

    procedure Image4Click(Sender: TObject);

    procedure Image5Click(Sender: TObject);

    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Edit1Change(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    procedure aktif;

    procedure nonaktif;

  end;