Da li neko mozda zna kako da napravim stopericu u delphiju ??

Unapred Hvala

Create a new project, add a button named
'StartStopButton' and give the button a caption of 'Start'. Add a
StartTime : tDateTime property to the form.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
StartStopButton: TButton;
procedure StartStopButtonClick(Sender: TObject);
private
{ Private declarations }
FStartTime: tDateTime;
public
{ Public declarations }
property StartTime : tDateTime read FStartTime write FStartTime;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.StartStopButtonClick(Sender: TObject);
begin
if (StartTime = 0) then begin
StartTime := Now;
(Sender as tButton).Caption := 'Stop';
end else begin
ShowMessage('Elapsed : '+FormatDateTime('hh:nn:ss.zzz',
now-StartTime));
StartTime := 0.0;
(Sender as tButton).Caption := 'Start';
end;
end;
end.