Тормозит поток, обрабатывая игровую физику - Delphi - Ответ 6961432

unit alarm;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.MPlayer, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm13 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Label2: TLabel;
    Button3: TButton;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form13: TForm13;
  opened:boolean;
implementation
 
{$R *.dfm}
 
procedure TForm13.Button1Click(Sender: TObject);
var s:string;
begin
if opendialog1.Execute then
begin
 mediaplayer1.FileName:=opendialog1.Files[0];
 s:= opendialog1.Files[0];
 //showmessage(extractfilepath(opendialog1.Files[0]));
 delete(s,1,length(extractfilepath(opendialog1.Files[0])));
 Label1.Caption:='File:'+ s ;
 mediaplayer1.Open;
 mediaplayer1.Enabled:=true;
 opened:=true;
end;
end;
 
procedure TForm13.Button2Click(Sender: TObject);
begin
if timer1.Enabled then
 timer1.Enabled:=false
 else
 if opened then
 begin
 timer1.Enabled:=true;
 button3.Enabled:=true;
 end
 else showmessage('File not chousen');
end;
 
procedure TForm13.Button3Click(Sender: TObject);
begin
form13.Hide;
end;
 
procedure TForm13.FormCreate(Sender: TObject);
begin
//showmessage(timetostr(time));
end;
 
procedure TForm13.Timer1Timer(Sender: TObject);
var s,t:string;
 
begin
  s:=edit1.Text+':'+edit2.Text+':00';
  T:=timetostr(time);
  Label3.Caption:='Time:'+T;
  if pos(s,t)>0 then
  begin
 
    mediaplayer1.Play;
    button3.Enabled:=false;
    form13.Show;
    timer1.Enabled:=false;
  end;
end;
 
end.