Hook буфера обмена

[rust-02]

With Form1 Do
Case Msg.Message Of
WM_CUT:Writeln(L,'Bufer');
WM_COPY:Writeln(L,'Bufer2');
WM_KEYDOWN:

это jnhsdjr хука. при копировании чего либо должно прописываться в файл l слово Bufer2 при вырезании чего либо Bufer. но ничего не копируется. как можно это исправить? ну или дайте пж. код hook буфера обмена