[Act]

Код:

var s1 : TStringList;
  i,
  j : integer;
  d1 : string;
begin
  d1 := edit9.text + '.' + edit10.Text + '.' + edit11.Text;
   s1 := TStringList.Create;
   s1.LoadFromFile('mytemp.txt');
   j := 0;
   while Contain(s1[i], d1) do
   begin
    chart2.SeriesList[1].AddXY(j, StrToInt( Trim( copy ( s1[i], 10, length(s1[i]) - 10)  ) ),'',clblue);
    inc(i);
   end;
   s1.Free;

ну примрерно так, только я вот думаю мож я чет не понял что ты хочешь сделать, но судя по коду у тебя всё более менее получается а тут вроде и простое а не смог сделать


Процедура Contain будет проверять содержит ли строка дату.