Будильник/секундомер

[kop]

Здравствуйте!
Задание: Написать на Делфи - часы, будильник, секундомер....
Вообщем все сделал, кроме будильник, я хочу чтобы при нажатии на кнопку "начать" в разделе "Будильник" он звонил за то время которое я впишу, а пока я не нажал кнопку "начать" он никаких действий не предпринимал ...
код:

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel_cloc: TPanel;
    Timer_cloc: TTimer;
    Timer_alarm_clock: TTimer;
    Timer_stopwatch: TTimer;
    seconds_alarm: TEdit;
    min_alarm: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cloc_alarm: TEdit;
    Button3: TButton;
    Button4: TButton;
    Panel1: TPanel;
    procedure Timer_clocTimer(Sender: TObject);
    procedure Timer_stopwatchTimer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  chas:Integer;
  min:Integer;
  sec:Integer;
  mili:integer;
  a1,a2,a3:string;
  cloc:Integer;
  h,m,s,ms,i,bh,bm,bs:integer;


implementation

{$R *.dfm}

procedure TForm1.Timer_clocTimer(Sender: TObject);
begin
Panel_cloc.Caption:=TimeToStr(Now);
end;

procedure TForm1.Timer_stopwatchTimer(Sender: TObject);
begin
ms:=ms+1;
if ms=60 then
begin
  ms:=0;
 s:=s+1;
end;

if s>60 then
  begin
  s:=0;
  m:=m+1
  end;
if m>60 then
  begin
  m:=0;
  h:=h+1;
  end;
  Panel1.Caption:=IntToStr(h)+':'+inttostr(m)+':'+inttostr(s)+':'+inttostr(ms);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
 Panel1.Caption:='00:00:00'  ;
m:=0;s:=0;ms:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 if  Timer_stopwatch.Enabled=True then
 Timer_stopwatch.Enabled:=False  else
   Timer_stopwatch.Enabled:=True;
end;



procedure TForm1.Button1Click(Sender: TObject);

begin
Button1.Caption :='Ждите';
Panel_cloc.Caption:=TimeToStr(Now);
if cloc_alarm.Text+':'+min_alarm.Text+':'+seconds_alarm.Text=Panel_cloc.Caption then Beep;

end;


procedure TForm1.Panel1Click(Sender: TObject);
begin

end;

end.