[boxep]

Скажите, как сделать, что бы в моей программе, когда таймер приближается к нулю, то есть за 10 секунд до конца счета выводил звук? То есть он отсчитывается время 3 минуты и когда остается 0.10 секунд выдается звук

var
Form1: TForm1;
var fl:byte=0;
var Min3: integer;
var k:integer;
implementation

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
begin
Label1.Caption:=Format('%d : %2d',[Min3 div 60, Min3 mod 60 ]);
Label2.caption:=IntToStr(k div 2);
Dec(Min3);
if Min3 < 0 then
begin
fl:=1-fl;
if fl=0 then Min3:=1*60
else Min3:=3*60;
inc(k);
if k mod 2 = 0 then
label1.Font.color:=clred
else
label1.Font.color:=clblue;
If k mod 2 <> 0 then
label4.Caption := 'Rest'
else
label4.Caption := '';
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
k:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.enabled:=false;
button3.Visible:=True;
button1.Visible:=False;
button2.Visible:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
k:=2;
if label4.Caption = 'Rest' then
label4.Caption := '';
If label1.font.color = clblue then
label1.Font.color := clred;
Min3:=3*60;
timer1.enabled:=true;
button2.Visible:=False;
button3.Visible:=False;
button1.Visible:=True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.enabled:=true;
button3.Visible:=False;
button1.Visible:=True;
button2.Visible:=False;
end;

end.