помощ Utf8ToUnicode

[alman12]

почему здес пишутся не понятные символы как исправит ?

procedure TForm1.FormCreate(Sender: TObject);
var
Banner: String;
buf: array [0..$ff] of Char;
begin
Banner:=UTF8Encode('Введите логин');
Utf8ToUnicode(PWideChar(@buf), PAnsiChar(Banner), Length(Banner));
SendMessage(Edit1.Handle, EM_SETCUEBANNER, 0, Integer(@buf));
end;