Вывод временных меток и цифр из файла

[pautina]

Здравствуйте Уважаемое сообщество.
Ни могли бы Вы помочь с таким вопросом.
У меня есть текстовый файл logfile.txt http://files.mail.ru/KMVYFB
Мне нужно вывести из этого файла все временные метки и цыфры, и найденные значения передать в текстовый файл.
Использую такой код

procedure TForm1.Button1Click(Sender: TObject);
var SourceST,DestST:TStringList;
    i:integer;
    s:string;
    // s1:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin
  s:=Copy(SourceST[i],Length(SourceST[i])-6,7);
  // s1:=Copy(SourceST[i],Length(SourceST[i])-60,10);
  try
    strtotime(s);
   //strtofloat(s1);
   DestST.Add(SourceST[i]);
  except
  end;
 end;
 DestST.SaveToFile('112.txt'); //   DestST.SaveToFile('112.xls');
 SourceST.Free;
 DestST.Free;
end;

С выводом временных меток всё нормально, А вот как вывести цыфры, Как изменить код?
Использовал strtofloat(s1); s1:=Copy(SourceST[i],Length(SourceST[i])-60,10); они закоментарены в коде, но цыфры не выводились почему

[Dj_smart]

Во первых, кому вы передаете результат функции?
[имя_переменной_куда_нужо_записывать]=strtofloat(s1);

procedure TForm1.Button1Click(Sender: TObject);
var SourceST,DestST:TStringList;
    i:integer;
    s:string;
    s1:string;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin
  s:=Copy(SourceST[i],Length(SourceST[i])-6,7);
  s1:=Copy(SourceST[i],Length(SourceST[i])-60,10);
  try
    strtotime(s);
   DestST.Add(strtofloat(s1)+' '+SourceST[i]);
  except
  end;
 end;
 DestST.SaveToFile('112.txt'); //   DestST.SaveToFile('112.xls');
 SourceST.Free;
 DestST.Free;
end;

[pautina]

почему программа ругается на эту строку

 DestST.Add(strtofloat(s1)+' '+SourceST[i]);

Программа указывает что несоответствие типов

[Kotofff]

strtofloat(s1) - это преобразование строки в число (с десятичной точкой в даном случае), а в StringList нельзя добавлять числа .... только строки
http://www.delphibasics.ru/StrToFloat.php

[pautina]

Вывести временные метки и цыфры получилось, с метками все нормально, а вот цыфры выводятся не все, использовал такой код

procedure TForm1.Button1Click(Sender: TObject);

var SourceST,DestST:TStringList;
    i:integer;
    s:string;
    s1:string;
    s2:extended;
begin
 SourceST:=TStringList.Create;
 DestST:=TStringList.Create;
 if form1.OpenDialog1.Execute then SourceST.LoadFromFile(form1.OpenDialog1.FileName);
 for i:=0 to SourceST.Count-1 do
 begin
  s:=Copy(SourceST[i],Length(SourceST[i])-6,7);
  s1:=Copy(SourceST[i],Length(SourceST[i])-20,11);
  try
    s2:=strtofloat(s1);
    DestST.Add(floattostr(s2)); // Вывод чисел
  except
  end;
  try
    strtotime(s);
    DestST.Add(SourceST[i]);   // Вывод временных меток
  except
  end;

 end;
 DestST.SaveToFile('112.txt'); //   DestST.SaveToFile('112.xls');
 SourceST.Free;
 DestST.Free;
end;

Какие значения использовать в строке

s1:=Copy(SourceST[i],Length(SourceST[i])-20,11);

чтобы выводились все цыфры.
Файл из которого нужно выводить временые метки и цыфры приведён здесь.
http://files.mail.ru/KMVYFB
Почему выводятся не все цыфры, что в коде ни так, может новый подход какой использовать.