Заполнение полей записи из файла Опции

[-Anna-]

Есть файл Test.txt состоящий из 10 строк, каждая строка такого содержания:
фамилия:имя:год рождения:улица:дом:квартира:телефон
: - это разделитель.
И есть запись и массив на эту запись

Код

Type TBase = Record
     Family:string;
     Name:string;
     Year:integer;
     Street:string;
     Dom:integer;
     kvar:integer;
     Tel:integer;
     End;

var Spisok: Array[1..10] of TBase;

Подскажите пожалуйста, как заполнить поля записи из этого файла. Т.е. меня интересует, как
выделить из строки например фамилию и записать ее в поле family, имя в name и т.д..