kalapanga

1) Код вставлен не полностью.
2) Это вообще компилироваться не должно, не то что помогать. Бред какой-то
for i:=0 to FDQuery1.RecordCount -1 and FDQuery2.RecordCount -1 do
3) Зачем здесь нужны два объекта FDQuery? Делайте в одном
'select question, answer from datai'

"Как оптимизировать код" - неверный вопрос. Код можно оптимизировать, если есть критерии оптимизации. А у Вас не только критериев нет, Вы даже не написали, что программа делать должна, с какими данными работать. Так что думаю, если программа делает то, что задумано, то не стоит ничего "оптимизировать". Лучше лишний раз на ошибки проверьте.
Если уж Вам сильно хочется замечаний, то вот некоторые. Часть можете считать придирками, но есть и более важные.
Сверху вниз.
Глобальная переменная I. Потенциальный источник ошибок. В каких-то процедурах она перекрывается локальной переменной, в каких-то нет. Легко неуследить и использовать не ту, что нужно. (Глобальную переименовать)
Нелогичное название процедуры MatrixInput. Да, там формируется матрица, но при этом она не вводится (Input), а наоборот выводится - write(...)! (Для лучшей читабельности кода назовите например FillMatrix)
В этой же процедуре не контролируется выход индекса за границу в строке
M[I,J]:=S[N*(i-1)+j];
Раз уж выделили этот кусочек в отдельную процедуру, в её начале надо проверить корректность входных параметров.
В процедуре CheckAndFixString вместо цикла
while length(S)<NeedLength do S:=S+'#'
лучше так

S := S + StringOfChar('#', NeedLength - length(S));

Здесь длина строки нужна только один раз, а не на каждом проходе цикла.
Основная программа.
Главная ошибка - "захардкоженные" имена файлов. Вы принесли кому-то Вашу программу. Откуда у него такие каталоги?
Или используйте ini-файл с путями к файлам или хотябы оставьте в коде только имена файлов и ищите их в каталоге программы.
Здесь же вторая ошибка - отсутствие обработки ошибок при работе с файлами. Если например нужного файла нет программа свалится с ошибкой вместо информативного сообщения пользователю.

В дельфи, в том числе и в бесплатной Сommunity Еdition, есть примеры для работы с базами данных. Посмотрите их.

Или сделайте эту процедуру методом формы, на которой это мемо лежит.
Или обращайтесь к нему так Form1.mmo1.Text где Form1 Ваша форма.

Старенький он уже. Кодеков мало поддерживает. Единственное, что можно попробовать, явно DeviceType задать, может он его по расширению файла сам выбрать не может, но вряд ли поможет. Рекомендуют например Windows Media Player использовать. Windows Media Player in Delphi

Для начала, если Вы этого не делали, найдите какую-нибудь дисковую утилитку и посмотрите эти самые сектора. Всё ли соответствует Вашим ожиданиям, Вашим знаниям о FAT32. Это чтобы не получилось, что Вы что-то считаете неправильным, а на самом деле оно так и должно быть.
А дальше не торопясь отлаживаться. Чудес не бывает. Если функция раз от разу возвращает разный результат, то либо её вызывают с различными параметрами, либо ошибка в коде функции, либо и то и другое. Всё должен показать отладчик.

Ещё не создана форма и, соответственно, компоненты на ней. DBGrid1 ещё не существует, когда Вы пытаетесь к нему обращаться. Попробуйте использовать событие формы OnShow.