if (ssCtrl in Shift) and (Key = Ord('C')) then
 begin
     Clipboard.Clear;
     MYPasteToClipBoard;
 end;

function NewMemoProc(wnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):integer; stdcall;
begin
if (uMsg = WM_CUT) or (uMsg = WM_COPY) then uMsg := 0;
result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,uMsg,wParam, lParam)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Memo1.Handle,GWL_USERDATA,SetWindowLong(Memo1.Handle, GWL_WNDPROC, LPARAM(@NewMemoProc)))
end;

procedure TForm1.WndProc (var message: TMessage);
begin
 if (message.Msg = WM_COPY) or (message.Msg = WM_CUT) then
   {????????}
 else
   inherited
end;

 TForm1 = class(TForm)
   Edit1: TEdit;
   Memo1: TMemo;
 private
   FOldMemoWndProc: TWndMethod;
   FOldEditWndProc: TWndMethod;
   procedure MemoWndProc (var Message: TMessage);
   procedure EditWndProc (var Message: TMessage);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 FOldMemoWndProc := Memo1.WindowProc;
 Memo1.WindowProc := MemoWndProc;
 FOldEditWndProc := Edit1.WindowProc;
 Edit1.WindowProc := EditWndProc;
 Memo1.Lines.Text := 'Это русский текст';
end;

procedure TForm1.MemoWndProc(var Message: TMessage);
var
 LKL: array [0..1023] of char;
begin
 if Message.Msg = WM_COPY then
 begin
   GetKeyboardLayoutName(LKL);
   LoadKeyboardLayout('00000419',KLF_ACTIVATE);
 end;
 FOldMemoWndProc(Message);
 if Message.Msg = WM_COPY then
   LoadKeyboardLayout(LKL,KLF_ACTIVATE);
end;

procedure TForm1.EditWndProc(var Message: TMessage);
var
 LKL: array [0..1023] of char;
begin
 if Message.Msg = WM_COPY then
 begin
   GetKeyboardLayoutName(LKL);
   LoadKeyboardLayout('00000419',KLF_ACTIVATE);
 end;
 FOldEditWndProc(Message);
 if Message.Msg = WM_COPY then
   LoadKeyboardLayout(LKL,KLF_ACTIVATE);
end;