Таймаут и бесконечный цикл

[Terikon]

Здраствуйте, подскажите как выставить таймаут и бесконечный цикл

 tr.Add('username=login');
  tr.Add('password=123');
  idhttp1.Post('http://www.sait.ru/index.php',tr);
   Memo1.Lines.Add(idhttp1.get('http://www.sait.ru/index.php?'));

например через 5 мин нужно отправить заново:

Memo1.Lines.Add(idhttp1.get('http://www.sait.ru/index.php?'));

и так пока не будет нажата кнопка стоп

[Sazary]

Вставьте код в обработчик TTimer.
А в обработчик кнопки:

Timer1.Enabled := false;

[Terikon]

А как бесконечный цик поставить?

[AngelOfDeath]

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

А как бесконечный цик поставить?

Sazary, вам написал
Таймер фактически и есть этот бесконечный цикл...
Просто надо выставить интервал и всё...
Можно сделать таким образом:

while true do//Запускаем бесконечный цикл
begin
Memo1.Lines.Add(idhttp1.get('http://www.sait.ru/index.php?'));
sleep(5000000);//Ждать 5 минут
end;

Если запустить этот цикл например по нажатию кнопки
Программа зависнет...
Можно вынести в поток...
PS. Всё это мои идеи решения этой задачи)
PPS. Код писал от руки (могут быть ошибки)
PPPS. Тот цикл выше не писать в обработчик таймера

[Terikon]

Спасибо всем, я разобрался, использовал TTimer