Как написать программку счётчик секунд

[fadss]

Программка должна считать кол-во секунд с момента нажатия кн. "пуск" до момента нажатия кн. "сброс". Счёт должен быть завязан с системным календарём, потому что счёт секунд может идти до нескольких месяцев и продолжаться после отключения и включения ПК.
Поверх всех окон.
Возможность автозагрузки.
система Windows XP
Скрин программки во вложении.
Программка на Паскале ABC

[Smitt&Wesson]

Сами-то поняли, что написали?

[Serge_Bliznykov]

а в чём, собственно, сложность?
при нажатии на кнопку "Пуск" сохраняйте время запуска куда-нибудь в постоянную память (например, в файл на диске). При запуске программы считывать время и отображать разницу, по таймеру обновлять...

по поводу автоматического старта при включении компьютера и про отображение поверх всех окон - не подскажу. Думаю, что в Pascal ABC это нельзя сделать.
И зачем Вы выбрали этого мутанта-уродца?!!

[fadss]

Сложность в том, что я не программист, а только собираюсь им стать последние лет 20, нет учителя. А программку эту уже лет 5 пытаюсь написать самостоятельно, да никак не выходит. Напишите кто-нибудь мне такую программку, она не сложная. Спасибо.

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  f='E:\sek.txt';

var
  Form1: TForm1;
  t:tDateTime;
  sl:tStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   sl:=tStringList.Create;
   If FileExists(f) then
      sl.LoadFromFile(f);
   If (sl.Count>0) and (sl[0]<>'') then
      t:=StrToFloat(sl[0]) else
      t:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
   // пуск
   t:=Now;
   s:=FloatToStr(t);
   If sl.Count=0 then
      sl.Add(s) else
      sl[0]:=s;
   sl.SaveToFile(f);
   Timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   // сброс (стоп)
   t:=0;
   sl.Clear;
   sl.SaveToFile(f);
   Timer1.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If t=0 then
      Label1.Caption:='Остановлена!' else
      Label1.Caption:=FloatToStr(Trunc((Now-t)*24*60*60));
end;

end.