procedure TForm1.btn1Click(Sender: TObject);
var
  CsvData: TStringList;
  Arry1,Arry2: array[0..20] of Char;                       //两个字符串数组，用来保存结果
begin
  CsvData:= TStringList.Create;

  try
    CsvData.LoadFromFile('d:\ee.csv');

    lstrcpyn(Arry1,PChar(CsvData.Strings[CsvData.Count - 1]),11);            //拷贝最后一行的前10个字符。
    lstrcpyn(Arry2,PChar(CsvData.Strings[CsvData.Count - 1]) + 11,11);       //拷贝最后一行的从第12个字符开始的10个字符。
    mmo1.Lines.Add(Arry1);                                                   //输出结果。
    mmo1.Lines.Add(Arry2);
  finally
    CsvData.Free;
  end;
end;

我昨天也犯了个大错误，Pchar(Pchar(CsvData.ValueFromIndex[I]) + 10)^:= char(0);这句本意是想将一行的原始数据中分，可犯了大忌。
因为这样会使delphi的字符串分配回收函数出错。

你好棒，我运行了一下，完全读出了数据。第一个数据前多了一个空格。
加到定时器中完全同步。
lstrcpyn(Arry1,PChar(CsvData.Strings[CsvData.Count - 1]),12);   
lstrcpyn(Arry2,PChar(CsvData.Strings[CsvData.Count - 1]) + 12,11);
再次感谢。