В результате консультаций получился код. Но выдает ошибку причтении из файла "Invalid numeric input". Помогите разобраться.

unit Unit_111; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons, ExtCtrls, TeeProcs, TeEngine, Chart, Series; 
 
type 
  TForm1 = class(TForm) 
    Chart1: TChart; 
    BitBtn1: TBitBtn; 
    Series1: TLineSeries; 
    Series2: TLineSeries; 
    Series3: TLineSeries; 
 
    procedure Button1Click(Sender: TObject); 
//    procedure FormCreate(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
 
  Form1: TForm1; 
 
  S,S1 : string; 
  f : TextFile; 
  i : integer; 
  ArVar : array[0..13] of real; 
  dtDate, dtTime : TDateTime; 
 
 
 
//  n:double; 
 
  n,lbt,ldt,lbtd,ldtd,laoa,rbt,rdt,rbtd,rdtd,raoa,bbt,bdt,bbtd,bdtd,baoa:double; 
  lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis:double; 
 
 
implementation 
 
{$R *.dfm} 
procedure TForm1.Button1Click(Sender: TObject); 
 
begin 
DecimalSeparator := '.'; 
//TimeSeparator := ':'; 
//DateSeparator := '.'; 
 
series1.Clear; 
series2.Clear; 
series3.Clear; 
n:=0; 
  AssignFile(f,'Users\Eyes.txt'); 
  Reset(f); 
  while not EOF(f) do begin 
    n:=n+1; 
    readln(f);  
    readln(f,S); 
     for i:=0 to 13 do begin 
      if i <> 13 
        then S1 := Copy(S,1,Pos(#9,S)-1) 
        else S1 := S; 
      case i of 
        0 : dtDate := StrToDate(S1); 
        1 : dtTime := StrToTime(S1); 
        else  ArVar[i] := StrToFloat(S1); 
      end; 
      Delete(S,1,Pos(#9,S)); 
    end; 
    readln(f,lostr,lred,lgreen,ldis,rostr,rred,rgreen,rdis,bostr,bred,bgreen,bdis); 
    series1.AddXY(n, rostr,'',clblue); 
    series2.AddXY(n, lostr,'',clgreen); 
    series3.AddXY(n, bostr,'',clred); 
   end; 
  CloseFile(f); 
 
  end; 
end.