Как сделать программу Stopwtch или секундомер с функцией Lap и 
                                             индикатором отсчета)*
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Ниже указан полный работоспособный проект прграммы Stopwtch.pas
--------------------------------------------------------------------------------------------------------------------------
unit Stopwtchp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, jpeg, Menus, ComCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    StartBtn: TButton;
    LapBtn: TButton;
    Button3: TButton;
    ExitBtn: TButton;
    ProgressBar1: TProgressBar;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    ColorDialog1: TColorDialog;
    FontDialog1: TFontDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StartBtnClick(Sender: TObject);
    procedure LapBtnClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ExitBtnClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
    a:integer;
    TickCounter: Longint;
    LapCounter: Longint;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
Var
 s : String;
 Seconds : Real;
begin
 a := a+1;
 ProgressBar1.Position := a;
 If a=100 Then a := 0;
 TickCounter := TickCounter + 1;
 Seconds := TickCounter / 10;
 Str (Seconds:1:1, s);
 Edit2.Text := s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TickCounter := 0;
LapCounter := 0;
end;

procedure TForm1.StartBtnClick(Sender: TObject);
begin
 If Timer1.Enabled Then Begin
  Timer1.Enabled := False;
  StartBtn.Caption := '&Старт';
 End
 Else Begin
  Timer1.Enabled := True;
  StartBtn.Caption := 'С&топ';
 End;
end;

procedure TForm1.LapBtnClick(Sender: TObject);
Var
 s : String;
 Temp : Longint;
begin
 Temp := TickCounter - LapCounter;
 LapCounter := TickCounter;
 Str ((Temp/10):0:1, s);
 Edit1.Text := s;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TickCounter := 0;
LapCounter := 0;
Edit1.Text := '0.0';
Edit2.Text := '0.0';
a:=0;
ProgressBar1.Position := 0;
end;

procedure TForm1.ExitBtnClick(Sender: TObject);
begin
Close();
end;

procedure TForm1.N4Click(Sender: TObject);
begin
If ColorDialog1.Execute Then
Form1.Color := ColorDialog1.Color
end;

procedure TForm1.N3Click(Sender: TObject);
begin
FontDialog1.Font := StartBtn.Font;
If FontDialog1.Execute Then
StartBtn.Font := FontDialog1.Font;
LapBtn.Font := FontDialog1.Font;
Button3.Font := FontDialog1.Font;
ExitBtn.Font := FontDialog1.Font;
Edit2.Font := FontDialog1.Font;
Edit1.Font := FontDialog1.Font;
Label1.Font := FontDialog1.Font;
Label2.Font := FontDialog1.Font;
Label3.Font := FontDialog1.Font;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
Close();
end;

procedure TForm1.N6Click(Sender: TObject);
begin
form2.visible:=true;
end;
end.
------------------------------------------------------------------------------------------------------------------------------------
)* - Эта программа уже сделана мной, и вы можете подгрузить её саму и
её проект на моём сайте по адресу:
http://www.kudruavtsev.narod.ru/stopw.html

Автор программы, идеи и текста: Кудрявцев Юра (PAYBACK co. #2000)

Internet: http://www.kudruavtsev.narod.ru
Mail-me: backpayback_yura@mail.ru