ммм..если я правильно тебя понел нужно сделать так?(добавить длину боди(+6)):
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
j: integer;
begin
s:='<body>';
j:= pos('<body>',memo1.Text)+6;
insert(edit1.text,s,j);
memo1.Lines.SaveToFile('C:\index.html');
end;
end.