Delphi. Как записать строку в середину бинарного файла поверх предыдущей, не затрагивая начало и конец файла?

Есть пока вот такой код, правда выдающий ошибку в конце.
И его проблема в том, что он затер все начало файла нулями произвел запись (в общем-то правильно) в середине и обрезал файл в конце сразу после окончания записываемой строки.

procedure Save(lv1: TListView; FileName: string; Nullbytes: integer);
var
i: integer;
s: string;
begin
with TFileStream.Create(FileName, fmCreate or fmOpenWrite) do
try
Seek(offst, soFromBeginning);
for i := 0 to lv1.Items.Count do
begin
Write(s[1], Length(s));
end;
finally
Free;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
try
Save(lv1, 'mn.bin');
except
showmessage('Error!');
end;