第一个delphi程序

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
  var flag:integer;
  var  n1: Cardinal;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    first: TEdit;
    second: TEdit;
    result: TEdit;
    btn_begin: TButton;
    btn_judge: TButton;
    lab: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lab_true: TLabel;
    lab_false: TLabel;
    lab_totel: TLabel;
    procedure btn_beginClick(Sender: TObject);
    procedure btn_judgeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn_beginClick(Sender: TObject);
     var f,s:integer;
begin
     n1 := GetTickCount;     //get soft run time
     randomize;              // let random   initialize
     f := 10+random(90);     // build  a number from (0,100]
     s := 10+random(90);     //the same with up row
     first.Text := inttostr(f); //  transform int to string
     second.Text := inttostr(s);
     result.SetFocus;
     btn_begin.Enabled := false;  // ÉèÖÿªÊ¼°´Å¥Îª²»¿ÉÓÃ
     btn_judge.Enabled := true;   // Åжϰ´Å¥¿ÉÓÃ
end;

procedure TForm1.btn_judgeClick(Sender: TObject);
begin
     if   result.Text =''
     then begin showmessage('please input a number for result..');
          result.SetFocus;     // Èç¹ûûÓÐÊäÈëÊý¾Ý£¬ÌáʾÊäÈë²¢»ñÈ¡½¹µã
          end
     else begin
          //Èç¹û»Ø´ðÕýÈ·£¬T±êÇ©¼ÓÒ»£¬·ÖÊý¼Ó5·Ö£¬·ñÔò£¬F±êÇ©¼ÓÒ»£¬²»¼Ó·Ö
          if   strtoint(result.Text) = strtoint(first.Text)+strtoint(second.Text)
          then begin
          lab_true.Caption := inttostr((strtoint(lab_true.Caption)+1));
          lab_totel.Caption := inttostr((strtoint(lab_true.Caption)*5));
          btn_begin.Click;
          result.Clear;
          result.SetFocus;
                end
          else begin
          result.SetFocus;
          result.SelectAll;
          lab_false.Caption := inttostr((strtoint(lab_false.Caption)+1));
               end;
          flag := flag+1;
          // ²âÊÔ20´Îºó£¬Ìáʾ·ÖÊýºÍËùºÄʱ£¬³ÌÐò½áÊø¡£
          if flag=20
          then  begin
                showmessage('Test over,Your score is '+lab_totel.Caption+#13+
                                       'You spend '+ floatToStr((GetTickCount - n1) div 1000)+' second');
                lab_true.Caption := '0';
                lab_false.Caption := '0';
                lab_totel.Caption := '0';
                flag := 0;
                n1 := GetTickCount;
                 btn_begin.Click;
                end
      end

end;

end.