If I'm not mistaken, this is what you want
Series1.AddXY(<Pass the data value>, <Pass Your value>, '', clRed);
Series1.AddXY(now, 1, '', clRed);
Series1.AddXY(now + ( 1 /(24*60*60)), 2, '', clRed);
Series1.AddXY(now + ( 2 /(24*60*60)), 3, '', clRed);
source
share