Как правильно поставить таймер ?

[sice]

Есть код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 data:=tstringlist.create;
 data.Add('get=5');
 data.Add('method=game');
 data.Add('user='+Edit1.Text);
 data.Add('key='+Edit2.Text);
 IdHTTP1.HandleRedirects:=true;
 PageProfile:=IdHTTP1.Post('http://site/game.php?', data);
 Data.Free;
 Memo1.Text:=PageProfile;
 end;

Мне нужно, следующее: нажимаю на кнопку, запрос отправляется и чтобы он запускался через каждые 16 минут, уже без нажатия на кнопку.
Попробовал таймер. Поставил сначала на него Enabled:=False, включил его в начале события кнопки, но ничего не получилось, программа начал лагать ужасно.

Подскажите пожалуйста, как отправлять (воспроизводить код) каждый раз, через 16 минут, уже без нажатия каких-либо кнопок.

Благодарю заранее.

[veniside]

Timer1.Interval := 960000;

[sice]

Сообщение от veniside

Timer1.Interval := 960000;

Просто в начале события кнопки?

[_Engine_]

можно и design-time

[sice]

Сообщение от _Engine_

можно и design-time

дайте пожалуйста пример, ребята

[XeruH]

Сообщение от sice

дайте пожалуйста пример, ребята

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled := False;
 Timer1.Interval := 960000; 
 data:=tstringlist.create;
 try
   data.Add('get=5');
   data.Add('method=game');
   data.Add('user='+Edit1.Text);
   data.Add('key='+Edit2.Text);
   IdHTTP1.HandleRedirects:=true;
   PageProfile:=IdHTTP1.Post('http://site/game.php?', data);
 finally
   Data.Free;
 end; 
 Memo1.Text:=PageProfile;
 Timer1.Enabled := True;
end;

А в событии таймера

procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
  Button1Click(Self);
end;