[ChinYan]

Здесь файл не конвертируется в UTF, здесь он только отмечается, как UTF.

Код:

procedure TForm1.WriteXML;
var
f: TextFile;
S: TStream;
  Sign: Cardinal;
begin

S := TFileStream.Create(Edit1.Text + '.html',fmCreate);
  try
    Sign := $BFBBEF;
    S.WriteBuffer(Sign, 3);
  finally
    S.Free;
end;

 AssignFile(f, OutFile);
 try
   Append(f);
   writeln(f, '<p>' + Edit2.Text + '</p>');
   writeln(f, Memo1.Text + '</p>');
   writeln(f, Memo2.Text + '</p>');
   writeln(f, Memo3.Text + '</p>');
   writeln(f, Memo4.Text + '</p>');
   writeln(f, '</body>');
   writeln(f, '</html>');

 finally
    CloseFile(f);
    NewTovar;
    ShowMessage ('Страница создана успешно!');
 end;
end;