Clipboard.Open;
    Clipboard.AsText := AText;
    hClipbrd := Clipboard.GetAsHandle(CF_TEXT);
    if hClipbrd = INVALID_HANDLE_VALUE then
      Result := False
    else  SetClipboardData(CF_LOCALE, hClipbrd);
    Clipboard.Close;

//язык берём по-умолчанию
LangID:= GetUserDefaultLangID;
hMemLocale:= GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE or GMEM_ZEROINIT, 4);
Win32Check(hMemLocale <> 0);
try
  pMemLocale:= GlobalLock(hMemLocale);
  Win32Check(pMemLocale <> nil);
  try
    Move(LangID, pMemLocale^, 4);
  finally
    GlobalUnLock(hMemLocale);
  end;
  Clipboard.SetAsHandle(CF_LOCALE, hMemLocale);
except
  GlobalFree(hMemLocale);
end;

hMemUniversal:= GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE or GMEM_ZEROINIT, Length(Data));
Win32Check(hMemUniversal <> 0);
try
  pMemUniversal:= GlobalLock(hMemUniversal);
  Win32Check(pMemUniversal <> nil);
  try
    Move(Data[1], pMemUniversal^, Length(Data));
  finally
    GlobalUnLock(hMemUniversal);
  end;
  Clipboard.SetAsHandle(CF_TEXT, hMemUniversal);
except
  GlobalFree(hMemUniversal);
end;

procedure PureClip;
function ValidText(P:PWideChar;Size:cardinal):boolean;
// проверяет, что текст не нуждается в перекодировке
var I:cardinal;
begin
Result:=false; // текст нуждается в перекодировке - умолчание
For I:=0 to pred(Size) do if PChar(P)[2*I+1]<>#0 then exit;
  // если обнаружен не локальный символ, выходим
Result:=true; // если нелокальные символы не найдены -
  // текст в перекодировке не нуждается
end;
var Data,NewSize,NewData,CodePage:integer;
    DataPtr,NewPtr:pchar;
    DataPtrW:PWideChar;
begin
if OpenClipboard(GetForegroundWindow) then begin // монопольно пользовать буфер
  CodePage:=$419;
  Data:=GetClipboardData(CF_UNICODETEXT); // сохранить прежние текстовые данные
  if Data<>0 then begin // существуют текст в юникоде
  DataPtrW:=GlobalLock(Data);
  if ValidText(DataPtrW,GlobalSize(Data) div 2) then begin
    // текст не нуждается в перекодировке
    GlobalUnlock(Data);
    Data:=GetClipboardData(CF_TEXT); // получаем обычный текст
    if Data=0 then begin CloseClipboard;exit;end;
    NewSize:=GlobalSize(Data);
    DataPtr:=GlobalLock(Data);
    NewData:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,NewSize);
    NewPtr:=GlobalLock(NewData);
    MoveMemory(NewPtr,DataPtr,NewSize); // копируем на новое место
    GlobalUnlock(Data);
  end else begin
    NewSize:=WideCharToMultiByte(0,WC_COMPOSITECHECK,DataPtrW,-1,nil,0,nil,nil);
    Assert(NewSize<>0,'NewSize must not be zero!'); // ошибка?
    NewData:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,NewSize);
    // узнали размер перекодированной строки
    NewPtr:=GlobalLock(NewData);
    if WideCharToMultiByte(0,WC_COMPOSITECHECK,DataPtrW,-1,NewPtr,NewSize,nil,nil)=0 then raiselastoserror;
    // перекодировали
    GlobalUnlock(Data);
  end;
  end else begin // не найдена юникодовая страница
  Data:=GetClipboardData(CF_TEXT);
  if Data=0 then begin CloseClipboard;exit;end; // текстовых данных нет
  NewSize:=GlobalSize(Data);
  DataPtr:=GlobalLock(Data);
  NewData:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,NewSize);
  NewPtr:=GlobalLock(NewData);
  MoveMemory(NewPtr,DataPtr,NewSize); // скопировали на новое место
  GlobalUnlock(Data);
  end;
  GlobalUnlock(NewData); // разблокировали новые данные
  EmptyClipboard; // убить буфер
  Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,4);  // Назначить кодовую страницу для буфера обмена
  DataPtr:=GlobalLock(Data);
  MoveMemory(DataPtr,@CodePage,4);
  GlobalUnlock(Data);
  SetClipboardData(CF_LOCALE,Data); // записать кодовую страницу
  SetClipboardData(CF_TEXT,NewData); // вернуть новые данные для буфера обмена
  CloseClipboard; // закрыть буфер
end;
end;

procedure PureClip;
var Data,NewSize,NewData,CodePage:integer;
    DataPtr,NewPtr:pchar;
begin
CodePage:=$419;
if OpenClipboard(GetForegroundWindow) then begin // монопольно пользовать буфер
  Data:=GetClipboardData(CF_TEXT); // сохранить прежние текстовые данные
  if Data=0 then begin CloseClipboard;exit;end;
  NewSize:=GlobalSize(Data);
  DataPtr:=GlobalLock(Data);
  NewData:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,NewSize);
  NewPtr:=GlobalLock(NewData);
  MoveMemory(NewPtr,DataPtr,NewSize);
  EmptyClipboard; // убить буфер
  Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,4);  // Назначить кодовую страницу для буфера обмена
  DataPtr:=GlobalLock(Data);
  MoveMemory(DataPtr,@CodePage,4);
  GlobalUnlock(Data);
  SetClipboardData(CF_LOCALE,Data);
  GlobalUnlock(NewData);
  SetClipboardData(CF_TEXT,NewData); // вернуть новые данные для буфера обмена
  CloseClipboard; // закрыть буфер
end;
end;

procedure PureClip;
var Data,NewSize,NewData,CodePage:integer;
    DataPtr,NewPtr:pchar;
begin
CodePage:=$419;
if OpenClipboard(GetForegroundWindow) then begin // монопольно пользовать буфер
  Data:=GetClipboardData(CF_TEXT); // сохранить прежние текстовые данные
  if Data=0 then begin CloseClipboard;exit;end;
  NewSize:=GlobalSize(Data);
  DataPtr:=GlobalLock(Data);
  NewData:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,NewSize);
  NewPtr:=GlobalLock(NewData);
  MoveMemory(NewPtr,DataPtr,NewSize);
  EmptyClipboard; // убить буфер
  Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,4);  // Назначить кодовую страницу для буфера обмена
  DataPtr:=GlobalLock(Data);
  MoveMemory(DataPtr,@CodePage,4);
  GlobalUnlock(Data);
  SetClipboardData(CF_LOCALE,Data);
  GlobalUnlock(NewData);
  SetClipboardData(CF_TEXT,NewData); // вернуть новые данные для буфера обмена
  CloseClipboard; // закрыть буфер
  if PasteOnPureclip then begin // вставить, если необходимо
  Wait(DelayCopy,GetForegroundWindow);
  SendHotkey(HotPaste);
  Wait(1,GetForegroundWindow);
  end;
end;
end;

WText:=WideString(Text);