Divala jsi se na ty 2 priklady,m na ktere jsem daval odkazy?
Delphi od 2009 prave maji unicode. Ty se snazis pouzivat funkci, ktera chce ANSI stringy a ty ji tam posilas unicode stringy.
Zkus jen nahradit jmeno funkce GetHostName() za GetHostNameW(), vse ostatni nechej tak, jak mas.