procedure SetClipboardText(AStr: string);
var
  Data: THandle;
  DataPtr: Pointer;
  Size: Integer;
  WStr: PWideChar;
begin
  Size := Length(AStr) * 4;
  WStr := AllocMem(Size);
  try
    // convert to Unicode
    StringToWideChar(AStr, WStr, Size);
    OpenClipboard(0);
    EmptyClipboard;
    Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
    try
      DataPtr := GlobalLock(Data);
      try
        Move(WStr^, DataPtr^, Size);
        SetClipboardData(CF_UNICODETEXT, Data);
      finally
        GlobalUnlock(Data);
      end;
    except
      GlobalFree(Data);
      raise;
    end;
  finally
    CloseClipboard;
    FreeMem(WStr);
  end;
end;

procedure TUIRegroup.OnCopyExecute(Sender:TObject);
var
    txt:String;
begin
SetClipboardText (‘为啥乱码？’);
end;

procedure TUIRegroup.OnCopyExecute(Sender:TObject);
var
  txt:String;
begin
  txt := ‘为啥乱码？’;
  ActivateKeyboardLayout(HKL_NEXT,KLF_REORDER);
  Clipboard.SetTextBuf(PChar(txt));
end;