Monitor the changes of clipboard’s content

USES
   Windows, Forms, Clipbrd;
TYPE
   TForm1 = CLASS(TForm)
      Image1: TImage;
      PROCEDURE FormCreate(Sender: TObject);
   PUBLIC
      PROCEDURE WMDrawClipboard(VAR Msg: TWMDrawClipBoard); MESSAGE WM_DRAWCLIPBOARD
         ;
   END;

PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
   SetClipboardViewer(Handle);
END;

PROCEDURE TForm1.WMDrawClipboard(VAR Msg: TWMDrawClipBoard);
BEGIN
   IF Clipboard.HasFormat(CF_BITMAP) THEN
      Image1.Picture.Assign(Clipboard);
END;