[МИШАНЧИК]

Подскажите пожалуйста.
Пытался добавить в файл hosts нужные мне строки

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  HostFile: TStringList;
begin
  HostFile := TStringList.Create;
  try
    with HostFile do
    if CurStep = ssPostInstall then
    begin
      LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    end;
  finally
    HostFile.free;
  end;
end;

При установке пишет, что не может создать файл {sys}\drivers\etc\hosts и подсвечивает строку

Код:

SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));

Хотя если создать пустой текстовый файл hosts2, то внего всё записывает.
Может можно как-то сделать чтобы нормально вносилось в оригинальный hosts?