[Страдалецъ]

Ну уж тогда все и делайте через StringList, зачем только половину?

Код:

Var
  FileData: TStringList;
  DataRec: TStringList;
  i: Integer;
begin
 FileData := TStringList.Create;
 FileData.LoadFromFile('D:\2\test.txt');
 DataRec := TStringList.Create;
 for i := 0 to FileData.Count - 1
 do begin
    DataRec.CommaText := FileData.Strings[i];
    FamIO := DataRec.Strings[0];
    NAzv := DataRec.Strings[1];
    Year := DataRec.Strings[2];
    end;
 DataRec.Free;
 FileData.Free;
end;