여러가지 방법이 있겠죠
제가 고전적으로 쓰고 있는것은
BottomAxis의 Min Max를 바꾸는 것인데요 이 방법도 나쁘지는 않아요
var
  nowtime : TDateTime;
begin
  nowtime := now;
  Chart1.AddXY(nowtime , Random(100), '', dTeeColor);
  With Chart1.BottomAxis do
  begin
    if Minimum > Maximum  then
       Minimum := Maximum - 200/(60*60*60);
    Maximum := nowtime  + 1/(60*60*60);
    Minimum :=  nowtime  - 200/(60*60*60);
  end;
  
  While Chart1.Series[0].Xvalues[0] < nowtime  - 1000/(60*60*60) do
    Chart1.Series[0].Delete(0);  
end;
    
   대충 감 잡겠지만 기준시간에서 200초를 보여주고
   기준시간 1000초 전것은 삭제합니다.
   실시간 모니터링은 데이터를 계속 보관하면 Overflow납니다.

   그리고 원래 실시간 쪽은 타이머와 입력루틴은 별개로 있는거에요 즉, 다음과 같죠

// Timer
var
  nowtime : TDateTime;
begin
  nowtime := now;
  With Chart1.BottomAxis do
  begin
    if Minimum > Maximum  then
       Minimum := Maximum - 200/(60*60*60);
    Maximum := nowtime  + 1/(60*60*60);
    Minimum :=  nowtime  - 200/(60*60*60);
  end;
  
end;

// 입력 (TCP 또는 기타 입력장치에서 들어온 값)
var
  nowtime : TDateTime;
begin
  Chart1.AddXY(nowtime , Random(100), '', dTeeColor);
  While Chart1.Series[0].Xvalues[0] < nowtime  - 1000/(60*60*60) do
    Chart1.Series[0].Delete(0);  
end;

감사합니다!!!

어려워 보이지만 한번 해볼게요^^