unit Unit1;





interface





uses


  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,


  Dialogs, StdCtrls, ExtCtrls, MPlayer;





type


  TForm1 = class(TForm)


    Timer1: TTimer;


    procedure Timer1Timer(Sender: TObject);


  private


    { Private declarations }


  public


    { Public declarations }


  end;





var


  Form1: TForm1;





implementation





{$R *.dfm}





procedure TForm1.Timer1Timer(Sender: TObject);


begin


Form1.Caption:='Coded By   .: z!yade :.   [ '+TimeToStr(time) +' ]';





end;





end.