[Bars1992]

Так более красивее

PHP код:

unit Unit1;

interface

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

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMyDelay=class(TTimer)
   private
   procedure OnReady(sender:Tobject);
   public
   delay:integer;
   ready:boolean;
   constructor Create(time:integer);
   procedure Start;
   end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

{ TMyDelay }

constructor TMyDelay.Create(time: integer);
var
m:tmethod;
begin
inherited create(nil);
enabled:=false;
delay:=time;
ready:=false;
OnTimer:=onReady;
end;

procedure TMyDelay.OnReady(sender: Tobject);
begin
ready:=true;
enabled:=false;
end;

procedure TMyDelay.Start;
begin
interval:=delay;
enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
m:TMyDelay;
begin
m:=TMyDelay.Create(1000);
m.Start;
while not m.ready do application.ProcessMessages;
showmessage('Прошла одна секунда!');
end;

end.