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;