(델파이)timer 사용법

procedure TFORM1.Timer1Timer(Sender: TObject);
begin

   // 타이머 실행시 실행소스..
   StatusBar1.SimpleText :=  SystemDateTime;
end;

 

procedure TFORM1.Button1Click(Sender: TObject);
begin
   if Trim(sFlag) = '1' then
   begin
      sFlag := '2';

      //타이머 시작
      Timer1.Enabled := True;
      showmessage('시작함');
   end
   else
   begin
      sFlag := '1';

      //타이머 종료
      Timer1.Enabled := False;
   end;

end;