Как правильно разделить столбцы csv-файла?

[ondar]

Имеется файл students.csv со седующим содержанием:
-------------------
Иванов ИИ; 4; 5; 3
Петров ПП; 3; 5; 5
Павлов ПП; 4; 5; 4
-------------------
разделитель в моем случае это - точка с запятой , причем после каждой точки с запятой есть 1 пробел.

Необходимо получить имя студента с инициалами и оценку "5".
т.е.
-------------------
Иванов ИИ 5
Петров ПП 5
Павлов ПП 5
-------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
  ts:TStringList;
  f:TextFile;
  i:integer;
begin
  Ts := Tstringlist.create;
  AssignFile(f,'students.csv');
  Reset(f);
  while not eof(f) do
  begin
    Readln(f,s);
    ts.Delimiter:=';';
    ts.CommaText:=s;
    Memo2.Lines.Add(ts.Strings[0]+' '+ts.Strings[2]);
  end;
  closefile(f);
  ts.free;
end;

в этом случае у меня получается:
----------
Иванов 4;
Петров 3;
Павлов 4;
----------

[Stilet]

ts.Delimiter:=';';

Нет, так не выйдет. TStringList разделяет не только по указанному символу а еще и по пробелу по умолчанию, так что можно нарваться на неожиданности - Иванов ИИ будут идти разными полями.
И в твоем случае будет скорее

Memo2.Lines.Add(ts.Strings[0]+' '+ts.Strings[1]+' '+ts.Strings[3]);

[ondar]

MS Excel, в моем случае, нормально делит столбцы csv-файла. Каким образом он это делает?