Визуализация таймера на делфи, нужна небольшая

[Az@zel]

Я далеко не программист...скажем так, любитель..
Иногда пишу программки по шаблонам...(тупо вставляю уже написанный кем-то код и всё..)

В данный момент столкнулся с небольшой проблемкой:
нужен таймер вот такого вида:

по нажатию на кнопку Start, должен включиться таймер, а в заголовке окна должно отсчитываться время...

Вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    k: integer;
  end;

var
  Form1: TForm1;



implementation

{$R *.dfm}
function SecToTime(Sec: Integer): TTime;
var
  H, M, S: INTEGER;
  HS, MS, SS: string;
begin
  S := Sec;
  M := Round(INT(S / 60));
  S := S - M * 60; //Seconds
  H := Round(INT(M / 60)); //Hours
  M := M - H * 60; //Minutes
  if H < 10 then
    HS := '0' + Inttostr(H)
  else
    HS := inttostr(H);
  if M < 10 then
    MS := '0' + Inttostr(M)
  else
    MS := inttostr(M);
  if S < 10 then
    SS := '0' + inttostr(S)
  else
    SS := inttostr(S);
  RESULT := StrToTime(HS + ':' + MS + ':' + SS);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  i: longint;
begin
  i := 0;
  k := 600;
  for i := 0 to 600 do
    Timer1.Enabled:=True;
    k:= k-1;
  if k=0 then
  exit;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  caption:='Осталось: '+ TimeToStr(SecToTime(k));
end;

end.

не работает....
подскажите в чём ошибка?

Еще буду очень благодарен, если подскажете как в этой програмке реализовать сохранение промежуточного результата таймера в ini-файл (чтобы если я выключу эту программу, то при следующем включении таймер продолжил бы свой отсчёт)

[Sm1Le]

не работает

Что именно ? - Ошибка, Ничего не происходит, что именно, и уточни сразу какая и где, если ошибка ?

[Az@zel]

Я дико извиняюсь.... Ступил ваще аж стыдно
Таймер заработал

Вот с таким кодом

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    k: integer;
  end;

var
  Form1: TForm1;



implementation

{$R *.dfm}
function SecToTime(Sec: Integer): TTime;
var
  H, M, S: INTEGER;
  HS, MS, SS: string;
begin
  S := Sec;
  M := Round(INT(S / 60));
  S := S - M * 60; //Seconds
  H := Round(INT(M / 60)); //Hours
  M := M - H * 60; //Minutes
  if H < 10 then
    HS := '0' + Inttostr(H)
  else
    HS := inttostr(H);
  if M < 10 then
    MS := '0' + Inttostr(M)
  else
    MS := inttostr(M);
  if S < 10 then
    SS := '0' + inttostr(S)
  else
    SS := inttostr(S);
  RESULT := StrToTime(HS + ':' + MS + ':' + SS);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  caption:='Осталось: '+ TimeToStr(SecToTime(k-1));
  k:= k-1;
  if k=0 then
  Timer1.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  k:= 15;
  Timer1.Enabled:=True;
end;

end.

Теперь надо как-то с записью промежуточного результата в ini-файл разобраться...
Вот тут от помощи не откажусь...

[raxp]

работа с ini файлами:
1 2 3 4... пользуемся поиском по форуму.