Memo问题2(超级急 大家帮帮忙啊！！！5555)(100分)

怎么才能让button按下时每3秒发送到memo 选择错误 ？
我知道录入命令时mmo1.Lines.Add('错误:你选择的答案是错误的')
可是怎么让他每3秒发送一次呢？一共发送5次！！！
可能用到timer 帮帮忙啊！！！

最好是使用定时器。等你5次完成后关闭定时器。

最好是使用定时器。等你5次完成后关闭定时器。
怎么用 请大侠赐教 555555555

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
v_Count: Integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 3000;
v_Count := 5;
Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if v_Count > 0 then
begin
Memo1.Lines.Add('错误:你选择的答案是错误的');
dec(v_Count);
end;
end;

end.

同意楼上的。我唯一要说的是，你在加上一句关闭定时器的代码。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if v_Count > 0 then
begin
Memo1.Lines.Add('错误:你选择的答案是错误的');
dec(v_Count);
end
else
Timer1.Enabled := False;
end;

同意楼上和楼楼上的。我唯一要说的是，如果你的定时器不精确的话,请到网上再找找

接受...

多人接受答案了。

发现个问题
点了一下以后就不能再点了!-_-!

...

Timer1.Enabled := not Timer1.Enabled;
if Timer1.Enabled = true then
begin
v_Count := 5;
end;