Как разделить строку на два числовых массива?

procedure TFDataWindow.FormActivate(Sender: TObject);
var
  i, j, K, nPoints, errCode : integer;
  s : string;
  d1, d2 : double;
  Arr1, Arr2: array of double;
  TS : TStringList;
begin
  TS := TStringList.Create();
  setlength(Arr1,0);
  setlength(Arr2,0);
  try
    TS.LoadFromFile(‘DataOfGeorad.txt’);

    // найдём первую непустую строчку
    j := 0;
    while (j<=TS.Count-1) and (Length(Trim(TS.Strings[j]))=0) do inc(j);

    if (j<=TS.Count-1) then begin
       // если в 1-й непустой строчке есть текст //n points
       //   то прочитаем количество точек в переменную nPoints
       //  наверняка, эту переменную нужно испльзовать как счётчик,
       //   но в данном примере — эта переменная просто считывается из файла и
       //   дальше не используется! Думаю, что в настоящем файле — эта перменная
       //   определяет, сколько после этого точек будет!
       if Pos(‘//n points’, TS.Strings[j])>0  then begin
          Val(Trim(Copy(TS.Strings[j], 1, Pos(‘//n points’, TS.Strings[j])-1)),
               nPoints, errCode);
          if (errCode=0) then inc(j);
       end;

       // подсчитаем, сколько записей будет в массиве (это количество непустых строчек)
       K := 0;
       for i := j to TS.Count — 1 do begin
          s := Trim(TS.Strings[i]);
          if (length(s)>0)
                and (Pos(‘   ‘,s)>0) then
                inc(K);
       end;

       //  зададим длину массивов
       setlength(Arr1, K );
       setlength(Arr2, K );

       // перенесём записи в массивы
       K := 0;
       for i := j to TS.Count — 1 do begin
          s := Trim(TS.Strings[i]);
          if (length(s)>0) and (Pos(‘   ‘,s)>0) then begin
              Val(Trim(Copy(s,1, Pos(‘   ‘,s))), d1, errCode);
              Arr1[K] := d1;
              Val(Trim(Copy(s,Pos(‘   ‘,s), Length(s)—Pos(‘   ‘,s))), d2, errCode);
              Arr2[K] := d2;
              inc(K);
          end;
       end;

    end;
  finally
    FreeAndNil(TS);
  end;

  // Отобразим (визуализируем записи в MemoData
  for I := Low(Arr1) to High(Arr1) do
      MemoData.Lines.Append(‘Arr1 = ‘+FloatToStr(Arr1[i])+‘ Arr2 = ‘+FloatToStr(Arr2[i]));

end;Syhi-подсветка кода