Ипануться. Науя? Это реально жесть.
Прогу можно сделать в стрко 10 отсилы.
При том что конструкция:
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do
Это полный здец. Да и использовать функции встроенные для работы с файлами - это не гуд.
А вот допустим если мне нужно создать файл на 16 гигов, то сколько времени она будет создавать его? Сутки или больше? И вообще врядли создаст потому как как 100% все значения dword

Вообще такие вешь делаются черзе апишки
CreateFile + WriteFile
Причем запись желательно делать по размеру кластера. Хотя 4096 байт самый раз.
Типа выделил блок памяти в 4096 байт. Посчитал сколько блоков нужно таких.
Гонешь цикл, забиваешь буфер мусором, а потом записываешь, и так далее.
Затем остаток байт просто дописываешь но уже с укороченным размером буфера.