그냥 소스로 때웁니다..

그러니깐 Application.OnIdle 에 새로운 헨들러를 넣어 주는거죠.. ^^

소스를 보면 바로 아실 듯 하네요..

//////////////////////////////////////////////////////////////

procedure TForm1.MyIdleHandler(Sender: TObject; var Done: Boolean);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
    Present:= Now;
    DecodeTime(Present, Hour, Min, Sec, Msec);
    if old_time <> sec then
    caption := IntToStr(Min * 60 + Sec);
    old_time := sec;

    Done := false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.OnIdle := MyIdleHandler
end;

/////////////////////////////////////////////////////////////////////

그럼 안녕히.. ^^

아하... 정말 감사합니다 ^^;
for 문으로 하는줄알았는뎀 ;;
암튼 감사합니다 ^^;

즐프밍하세요 ^^