1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FTC := getTickCount;
  Timer1.Enabled := not Timer1.Enabled;
  if not Timer1.Enabled  then
      begin
        label1.Font.Color := clRed;
      end
  else label1.Font.Color := clBlack;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   label1.Caption := IntToStr( (GetTickCount - FTC) div 1000);
end;