[ChinYan]

Нужно, чтобы файл был отмечен, как UTF например так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: TStream;
  Sign: Cardinal;
begin
  S := TFileStream.Create('C:\1.txt',fmCreate);
  try
    Sign := $BFBBEF;
    S.WriteBuffer(Sign, 3);
    S.WriteBuffer(PChar('Hello World!')^, 12);
  finally
    S.Free;
  end;
end;