unit unitSpeed1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bm: TBitMap;
  s: String;
  Hour, Min, Sec, MSec: Word;
        DMin,DSec     : Word;
  int,int2:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bm := TBitMap.Create;
  bm.Width := 1024;
  bm.Height :=1500;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DecodeTime(Time, Hour, Min, Sec, MSec);

If Int=0 then
begin
  DMin:=Min;
  DSec:=Sec+1;
  If DSec>=60 then DSec:=DSec-60;
  Int:=1;
end;

  int:=int+1;
  s := TimeToStr(time);
  bm.Canvas.TextOut(100,100, s);
  bm.Canvas.TextOut(100,125,'                                  ');
  bm.Canvas.TextOut(100,125, inttostr(DMin)+'>>'+inttostr(DSec));
   If(Sec=Dsec) then
   begin
    Bm.Canvas.Pen.Color:=Random(16777216);
    bm.Canvas.TextOut(100,150,'                                  ');
    bm.Canvas.TextOut(100,150,inttostr(Int));

     Bm.Canvas.Moveto(Int2,0);
     Bm.Canvas.LineTo(Int2,Int);
     Int2:=int2+1;
     If Int2>Form1.Width-20 then begin Int2:=0; Bm.Canvas.Rectangle(-1,-1,700,800);end;
     int:=0;
   end;



  Form1.Canvas.Draw(0, 0, bm);

end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  bm.Destroy;
end;

end.