Код:
procedure TForm1.Button1Click(Sender: TObject);
var
fel: TStringList;
i, j: integer;
code: string;
begin
fel:= TStringList.Create; // Создаю StringList
fel.LoadFromFile('index.html'); // Загружаю файл
i:= pos('</body>', fel.Text); // Ищу позицию закрывающего тэга Body
j:= pos('<body>', fel.Text)+6; // Ищу позицию открывающего тэга Body
code:= fel.Text; // Присваиваю переменной содержимое файла
if i-j <> 1 then // Проверяю есть что удалять или нету
begin
Delete(code, j, i-j); // Удаляю все лишнее
i:= pos('</body>', code); // Ищу новую позицию закрывающего тэга Body
end;
Insert(#13#10+Memo1.Lines.Text+#13#10, code, i); // Дописываю в файл данные с Memo
fel.Text:=code; // Записываю в файл уже измененный текст
Memo1.Lines.Add(fel.Text); // Вывожу в Мемо содержимое файла
fel.SaveToFile('index.html'); // Сохраняю файл
fel.Clear; // Освобождаю память
end;
На самом деле тебе нужно было почитать про работу со строками и все написал бы сам, здесь все элементарно.
Для того что бы не было лишних пустых строк сделай кнопку чтобы чистила Memo.