Delphi 7 a příklad se schránkou

Nemůžu nějak rozjet příklad z Tipy a triky v delphi, píše mi to nějaký sprosťárny
u té procedury procedure ClipBoardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;

Zachycení změny obsahu schránky

I druhý dnešní tip bude založen na odchycení zprávy systému. Tentokrát to bude detekce změny obsahu schránky, což je možná ještě o něco užitečnější tip, než náš dnešní úvodní příklad. Jistě sami přijdete na řadu využití, takže bez dalších řečí si rovnou ukažme zdrojový kód:

...
public
  { Public declarations }
  procedure ClipBoardChanged(var Message: TMessage); message WM_DRAWCLIPBOARD;
...

procedure TForm1.ClipBoardChanged(var Message: TMessage);
begin
  ShowMessage('Došlo ke změně obsahu schránky');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetClipboardViewer(Handle);
end;

nemohl by to někdo zkusit a vlepit sem opravený ? Asi mi chybí nějaká deklarace units ale už mě z toho message mišuge v hlavě. Dík
pre výpisy zdrojových kódov používajte prosím tag code (los) (aa)