Программа что редактирует и создает новый txt

[VitalikA]

Помогите пожалуйста, уже несколько дней мучаюсь с программой.
Программа должна открывать тхт в котором записана большое количество двухразрядных цифр
программа должна к каждой из этих цифр дописать "h," и выстроить их в строки по 10 или 20 цифр в одной строке, а в начале каждой строки написать db,
например
если есть
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

должно
db 11h, 12h, 13h,
db 14h, 14h, 15h,
и т.д.

[ДралсяСошибками]

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with TStringList.Create do
    begin
      LoadFromFile('test.txt');
        for i := 0 to Count - 1 do Strings[i] := 'db ' + StringReplace(Strings[i], ' ', 'h, ', [rfReplaceAll, rfIgnoreCase]) + 'h,';
      SaveToFile('test1.txt');
      Free;
    end;
end;