Копирование русского текста в буффер

[Kronos913]

Почему-то при копировании русского текста в буффер, текст превращается в набор левых символов

Использую

Clipboard.SetTextBuf(PChar(Edit9.Te xt));

[Shouldercannon]

Delphi 10.1

[Kronos913]

После долгих экспериментов, нашел в чем проблема

Проблема была в том, что если на ПК включена английская раскладка, то нельзя адекватно скопировать русский текст.

После кучи поисков как это сделать, вывел такой код.

procedure TForm1.ToBufRus(a:PChar);
var
 s: array[0.. KL_NAMELENGTH] of char;

begin
  GetKeyboardLayoutName(s); {Запомнить раскладку клавиатуры}
  LoadKeyboardLayout('00000419', KLF_ACTIVATE); {Переключить клавиатуру на русскую}
  Clipboard.SetTextBuf(a); {Скопировать текст}
  LoadKeyboardLayout(s, KLF_ACTIVATE); {Вернуть изначальную раскладку}
end;