[Nyctos Kasignete]

А, ну я не поняла сначала, правда.
Что-то наподобие этого

Код:

s1.XValues.DateTime := true;
with Chart1.BottomAxis do
begin
   Automatic := False ;
   Minimum:=  EncodeDate(1899, 12, 30) ;
   Maximum:= EncodeDate(2002, 12, 30);
end;