[angvelem]

Раз используется таймер, должно быть что-то такое:

Код:

var
  St : String;
  X  : Integer;

procedure TForm1.FormCreate(Sender : TObject);
begin
  X := 0;
  St := Edit9.Text;
end;

procedure TForm1.TimerOnTimer(Sender : TObject);
var
  S : String;
begin
  if Edit9.Text <> St then
  begin
    St := Edit9.Text;
    S := TimeToStr(Now);
  end
  else
    S := '';
  Series1.AddXY(X, StrToInt(Edit9.Text), S, clRed);
  inc(X);
end;