procedure TForm1.Button1Click(Sender: TObject);
var
SysdirP: PChar;
begin
SysDirP := StrAlloc(MAX_PATH);
GetSystemDirectory(SysDirP, MAX_PATH);
Memo1.Lines.SaveToFile(SysDirP+'\drivers\etc\hosts');
end;