请赐教，谁会编倒计时

Question

我想编一个到计时，从10分钟减到0，请高手赐教！！！

Answer 1

我有一个BCB的例子！
要的发信息给我。

Answer 2

private
    IntRemain: Integer;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  IntRemain := IntRemain - 1;
  Label1.Caption := Format('%d:%d', [IntRemain div 60, IntRemain mod 60]);
end;procedure TForm1.FormActivate(Sender: TObject);
begin
  IntRemain := 600;
end;

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses
  DateUtils;
{$R *.dfm}
var
  TimeBegin:TTime;
procedure TForm1.Button1Click(Sender: TObject);begin
   Timer1.Enabled:=True;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   TimeBegin:=IncSecond(TimeBegin,-1);
   Label1.Caption:=FormatDateTime('HH:mm:ss',TimeBegin);
 //  Label1.Refresh;end;procedure TForm1.FormCreate(Sender: TObject);
begin
   TimeBegin:=StrToTime('00:10:00');
   Timer1.Enabled:=False;
   Timer1.Interval:=1000;  //1 秒
end;end.

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses
  DateUtils;
{$R *.dfm}
var
  TimeBegin:TTime;
procedure TForm1.Button1Click(Sender: TObject);begin
   Timer1.Enabled:=True;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   TimeBegin:=IncSecond(TimeBegin,-1);
   Label1.Caption:=FormatDateTime('HH:mm:ss',TimeBegin);
   if  FormatDateTime('HH:mm:ss',TimeBegin)='00:00:00' then
     Timer1.Enabled:=False;
 //  Label1.Refresh;end;procedure TForm1.FormCreate(Sender: TObject);
begin
   TimeBegin:=StrToTime('00:00:04');
   Timer1.Enabled:=False;
   Timer1.Interval:=1000;  //1 秒
end;end.