По-моему в свойствах Font у TMemo есть свойство DefaulkCharSet если мне память не изеняет...

Strong_Gale, пробовал, не помогает =(

Да, помню.. есть такой глючек не приятный... но из программы "Lister" (файлового менеджера TotalCommander)всё вставлялось отлично, без вопросительных знаков, а с нормальным текстом

Это глюк операционки насколько я понимаю, он не имеет отношения к Delphi, и решить его средствами Delphi задача нетривиальная

Исходное сообщение Dim_K
Это глюк операционки

Именно. Для нормального копирования надо включать русскую раскладку.

изменение раскладки не помогло. нашёл выход в DelphiWorld, заменил операцию вставки из буффера, там была такая процедура:

function GetStringFromClipboard: WideString;

var

  Data: THandle;

begin

  if not IsClipboardFormatAvailable(CF_UNICODETEXT) then

    Result := Clipboard.AsText

  else

  begin

    Clipboard.Open;

    Data := GetClipboardData(CF_UNICODETEXT);

    try

      if Data <> 0 then

        Result := PWideChar(GlobalLock(Data))

      else

        Result := '';

    finally

      if Data <> 0 then

        GlobalUnlock(Data);

      Clipboard.Close;

    end;

  end;

end;

Saint_Glook, а проблема разве при вставке? Я думал при копировании... То есть если вставку из буфера делать это процедурой, то все будет нормально?

Dim_K, эта процедура даёт строку из буфера в нормальной кодировке, чтоб TMemo её воспринял нормально... надо ещё вставку самому реализовать. была там ещё аналогичная, чтобы из TMemo копировать текст корректно... а то не со всеми шрифтами работает корректно

делфи вобще глючная штука )