Чтение массива записей из типизированного файла

Мне нужно прочитать массив записей (состоит из одной строки и 6 цифр) из типизированного файла и записать в таблицу (StringGrid). В типизированном файле данные находятся каждое значение на новой строчке. В таблицу выводится какая-то каша из мусора. С индексацией всё в порядке.

procedure TMainForm.N3Click(Sender: TObject);
var
    TypeFile: File of Factory;
    I: Integer;
    IsCorrect: boolean;
    Records: AoW;
begin
    if OpenDialog1.Execute then
    begin
        SetLength(Records, 4);
        IsCorrect := True;
        AssignFile(TypeFile, OpenDialog1.FileName);
        Reset(TypeFile);
        I := 0;
        while not(Eof(TypeFile)) do
        begin
            Read(TypeFile, Records[I]);
            Inc(I);
        end;
        CloseFile(TypeFile);
    end;
    for I := 1 to SpinEditOfWorkers.Value do
    begin
        MainStringGrid.Cells[1, I] := Records[I-1].Name;
        MainStringGrid.Cells[2, I] := IntToStr(Records[I-1].DetailsOnMonday);
        MainStringGrid.Cells[3, I] := IntToStr(Records[I-1].DetailsOnTuesday);
        MainStringGrid.Cells[4, I] := IntToStr(Records[I-1].DetailsOnWednesday);
        MainStringGrid.Cells[5, I] := IntToStr(Records[I-1].DetailsOnThursday);
        MainStringGrid.Cells[6, I] := IntToStr(Records[I-1].DetailsOnFriday);
        MainStringGrid.Cells[7, I] := IntToStr(Records[I-1].DetailsOnSaturday);
    end;
end;