Отловля события копирования в буфер обмена

[саша40]

Привет. Пытаюсь отловить событие, которое Windows посылает при копирование чего-то в буфер обмена. Вот код:

procedure CopyClipboard(tag: TMessage); message WM_Copy;

procedure TForm1.CopyClipboard(tag: TMessage);
begin
if tag.Msg=WM_Copy then
begin
if CB.HasFormat(CF_Picture) then
begin
image1.Picture.Assign(CB);
Button3.Enabled:=true;
CoolTrayIcon1.ShowBalloonHint('Сooбщение','Картинка была скопирована в буфер обмена, вы можете её вставить в файл',bitinfo,30);
end;
if CB.HasFormat(CF_BitMap) then
begin
image1.Picture.BitMap.Assign(CB);
Button3.Enabled:=true;
CoolTrayIcon1.ShowBalloonHint('Сообщение','Изображение типа bmp было скопировано в буфер обмена, вы можете его использовать',bitinfo,30);
end;
end;
if CB.HasFormat(CF_TEXT) then
CoolTrayIcon1.ShowBalloonHint('Сообщение','В буфер обмена был скопирован текст',bitinfo,20);
end;

Но на объявление процедуры выдает ошибку: Invalid message parameter list
Место куда попадает курсор: После слова message. Что делать? Как решить?

[саша40]

Всё! Решил. Тему закрыть.

[Вадим Мошев]

Лучше бы вы написали, как это сделали, так как это может оказаться интересным/полезным для других.

[Пепел Феникса]

саша40, я надеюсь вы в курсе что wm_copy вам не помощник?

[HTTqp]

Можете подсказать решение проблемы?