Kako napraviti Count down

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
     Vreme := GetTickCount;
     Timer1.Enabled := true;
end;

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
Var Razlika : dword;
    sati, minuti, sekunde : integer;
begin
     Razlika := 7000 - ((GetTickCount - Vreme) div 1000);
     Sati := Razlika div 3600;
     Minuti := (Razlika - (Sati * 3600)) div 60;
     Sekunde := (Razlika - (Sati*3600) - (Minuti*60));
     Caption := Format('%d : %d : %d', [Sati,Minuti,Sekunde]); 

     if Razlika <= 0 then Timer1.Enabled := false;
end;

Code:

...
Var i : integer;
...
if Int_LoadFromReg(i, 
                          HKEY_CURRENT_USER,
                          '\SOFTWARE\Druid\Proba', 
                          'NazivPodatka')
   then radi nesto sa "i"
...

Code:

function Int_LoadFromReg( Var Value : integer; DefaultRootKey : HKEY, Key, ValueName : string ) : boolean;
Var Reg : TRegistry;
begin
      Result:=false;
      Reg := TRegistry.Create;
      try
        Reg.RootKey := DefaultRootKey;
        if Reg.OpenKey( Key, True)
        then begin
               if Reg.ValueExists( ValueName ) then begin
               Value:=Reg.ReadInteger( ValueName );
               Result:=true;
               end;
        Reg.CloseKey;   
        end;
      finally
      Reg.Free;
      end;

end;
function Int_SaveToReg( Value : integer; DefaultRootKey : HKEY, Key, ValueName : string ) : boolean;
Var Reg : TRegistry;
begin
     Result:=false;
      Reg := TRegistry.Create;
      try
        Reg.RootKey := DefaultRootKey;
        if Reg.OpenKey( Key, True)
        then begin
        Reg.WriteInteger( ValueName, Value );
        Reg.CloseKey;
        end;
      finally
      Reg.Free;
      end;

      Result:=true;
end;