SL01:Tstringlist;
　s1 : string;
　cnt : integer;
begin
　SL01 := TStringList.Create;
　try
　　Memo1.Lines.Insert(0,'<ｈｔｍl>');
　　Memo1.Lines.Insert(1,' <ｂｏｄｙ>');
　for cnt := 2 to Memo1.Lines.Count -1 do begin
　　s1 := Memo1.Lines[cnt];
　　Memo1.Lines[cnt] :=' '+s1 + '<ｂｒ>';
　end;

　cnt := Memo1.Lines.Count;
　if memo1.Lines.Text = ' ' then begin//もしメモが白紙だったら・・・
　　cnt := 2;
　end else begin
　end;

　Memo1.Lines.Insert(cnt,'<／ｈｔｍｌ>');
　Memo1.Lines.Insert(cnt,' <／ｂｏｄｙ>');

　SL01.AddStrings(Memo1.Lines);
　SL01.SaveToFile('C:\'+'test'+'.html');//ファイル作成
　finally
　　SL01.Free;
　end;

end;