Код:
Edit1.Text := IntToStr(b)
Write(f, edit1.text[b]);
В этом коде вы вписываете Edit значение переменной b, а затем пытаетесь вытащить из строки edit1.text b'тый символ и записать его в файл типа байт! О_о
Нужно делать так
Код:
b := StrToInt(Edit1.Text);
Write(f, b);