如何实现毫秒级计时显示

timer1:interval=1;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 caption := FormatDateTime('hh:nn:ss:zzz',now); 
end;

timer1:interval=1;报错
[Error] Unit1.pas(36): Undeclared identifier: 'interval'
还有，这句话应加在什么地�

看来你要再学习一下delphi基本知识�

你的方法只是显示电脑的时间，我需要一个可以自己设定初值得毫秒�

...........

var
 H:integer=0;
 N:integer=0;
 S:integer=0;
 Z:integer=0;

 DateTimer:string;

..........

timer1.interval:=1;

................

procedure TForm1.Timer1Timer(Sender: TObject); 
begin
 inc(Z);

if Z=1000 then 
 begin
 Inc(S);
 Z:=0;
 end;
 if S=60 then
 begin
 Inc(N);
 S:=0;
 end;
 if N=60 then
 begin
 Inc(H);
 N:=0;
 if H=60 then H:=0;

 DateTimer:=IntToStr(H)+':'+IntToStr(N)+':'+IntToStr(S)+':'+IntToStr(Z);

 caption:=DateTimer;

//formatdatetime('hh:nn:ss:zzz',strtotime(DateTimer)) 
end; 

//比较麻烦的方法

设定初值？ 不是很简单，和系统时间的差值随便你调啊

没记错的话 java 做这个到很简单。它直接就能建个时钟

先谢谢大家的帮助
“和系统时间的差值随便你调啊”，是这样做吗？我用伪代码写出来如下
starttime=formatdatetime（..，now）；
label1.caption：=现在时间-starttime；
是这样吗？

6楼的，我试过，可是不显示，我把caption：=DateTimer改成了
label1.caption：=formatdatetime('hh:nn:ss:zzz',strtotime(DateTimer))，可是label里面没有东西显示

var
 Form1: TForm1;
 BRUN:BOOL=true;
 Tmptime:Tdatetime;
implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
 brun:= not brun ;
 repeat
 application.ProcessMessages;
 if Tmptime<> now then begin
 Tmptime:=now;
 label1.Caption:=formatdatetime('yy/mm/dd hh:mm:ss.zzz',Tmptime);
 end
 else sleep(10);
 until brun;
end;

时钟靠不住的，只有死循环，
上面那个是个示范，没看你的具体要求，
没时瞎搞�

其实很简单；用一下语句
设置一个LAB标签
语句：
      label1.caption :=FormatDateTime('hh:mm:ss:zzz' , now );
呵呵!
我也是才学之！

没有一个说到点子上的
用Timer控件无法精确到 1毫秒的，你要使用timeGetTime自己去取时间差

程序只做代码运算可以设置成1豪秒的;但要刷新显示的话,理论上是只能 (1000/60)/次,因为要ProcessHandel,这个时间远远超过了代码运算.