PopupMenu i cyrlica

Jak zmusić TPopupMenu do wyświetlania cyrlicy?

Mi udało sie zmusić TMainMenu do prawie poprawnego wyświetlenia cyrylicy w Unicode :) :

procedure TForm1.Button1Click(Sender: TObject);
var
  S : WideString;
  F : File of Byte;
  Buff : array of Byte;
  I : Integer;
begin
  AssignFile(F, 'D:\temp\unicode.txt');
  reset(F);
  SetLength(Buff, FileSize(F));
  for I := 0 to FileSize(F) - 1 do
    Read(F, Buff[I]);
  CloseFile(F);
  S := VarToWideStr(Buff);
  AppendMenuW(test1.Handle, MF_STRING, 1234, PWideChar(S));
end;

test1 to element głównego menu. W pliku unicode.txt wpisałem przy pomocy Tablicy znaków "???????".