Запись в файл через строку - Delphi - Ответ 4292509

const 
  Offset = 2;
  //Offset = StrToInt(sEdit1.Text);
var
  first, second : Integer;
  lst1, lst2 : TStringList;
  i : Integer;
  FileName: String;
  fstrm: TFileStream;
  Mode: Word;
begin
  FileName := 'file_out.txt';
  if FileExists(FileName) then
      Mode := fmOpenWrite
    else Mode := fmCreate;
 
  lst1 := TStringList.Create;
  lst2 := TStringList.Create;
  lst1.LoadFromFile('file.txt');
  lst2.Add(sMemo1.Text);
 
  first := 0;
  second := 0;
  while (first < lst1.Count - Offset) and (second < lst2.Count) do
  begin
    inc(first, Offset);
    lst1.Insert(first, lst2[second]);
    inc(first); inc(second);
  end;
 
  fstrm := TFileStream.Create(FileName, Mode);
  lst1.SaveToStream(fstrm);
  MessageDlg('Òåêñò!', mtInformation, [mbOK], 0);
  fstrm.Free;
  lst1.Free;
end;