Русскоязычный текст в буфере

[Kronos913]

Итак... Возникает такая проблема: при работе с буфером обмена, периодически русскоязычный текст превращается в "??????????????"

После ряда экспериментов нашел такое решение для копирования текста ИЗ программы в буфер - в момент копирования текста должна быть включена русская раскладка. И когда я копирую текст из программы - делаю это вот так

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

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

Довольно кустарный метод, но хоть как-то работает

Но вот проблема в том, что когда нужно скопировать текст ИЗ буфера - это так не работает. Все время следить за тем, какая у меня раскладка, когда я копирую текст из браузера в буфер - напрягает... Да и это уже не тянет на то чтобы программа полноценно упрощала работу

Есть ли какой-то способ нормально получить русскоязычный текст из буфера, если в момент его копирования была включена английская раскладка?