小弟我的想法是，用timer控件，做一个倒计10秒的程序，在label的caption中显示倒数10秒的过程，10秒过后运行一个本地EXE文件，可惜，俺不懂如

我的想法是，用timer控件，做一个倒计10秒的程序，在label的caption中显示倒数10秒的过程，10秒过后运行一个本地EXE文件，可惜，俺不懂如
我的想法是，用timer控件，做一个倒计10秒的程序，在label的caption中显示倒数10秒的过程，10秒过后运行一个本地EXE文件，可惜，俺不懂如何实现，

------解决方案--------------------
var
Tick : integer = 10;

procedure TForm1.Button1Click(Sender: TObject);//开始倒计时
begin
Timer1.Interval := 1000;
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Tick < 1 then
begin
Timer1.Enabled := False;
WinExec(PChar( 'Notepad.exe '), 1);
end else begin
Dec(Tick);
Label1.Caption := IntToStr(Tick);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := IntToStr(Tick);
Timer1.Enabled := False;
end;