Тестовый код:

var
  W: WideString;
begin
  W := 'я';
  if W[1] = 'я' then
    ShowMessage('Ok')
  else
    ShowMessage('Fail');
end;

Появляется надпись "Fail".

Читать далее »