procedure TForm1.FormCreate(Sender: TObject);
begin
  hwndNextViewer:= SetClipBoardViewer(Self.Handle);
end;


procedure TForm1.DrawclipBoard(var message: Tmessage);
begin
  lbl1.Caption := '' ;
  if (hwndNextViewer<>0) then
    SendMessage(hwndNextViewer,message.Msg,message.WParam,message.LParam);
  PaintClip;
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
  changeclipboardChain(handle,hwndNextViewer);
end;


procedure TForm1.ChangecbChain(var message: Tmessage);
begin
  if (message.WParam=hwndNextViewer) then
     hwndNextViewer := message.LParam
  else if(hwndNextViewer<>0) then
    SendMessage(hwndNextViewer,message.Msg,message.WParam,message.LParam);
end;


procedure TForm1.PaintClip;
Var
  htext,hBitmap:HGLOBAL;
  str:String;
  pch:Pointer;
  len:Integer;
begin
  openclipboard(Self.Handle);
  htext := GetClipboardData(CF_TEXT);
  hBitmap := GetClipboardData(CF_BITMAP);
  if htext<>0 then
  begin
    pch:=globallock(htext);
    len:= globalSize(htext);
    SetString(str,Pchar(pch),len);
    lbl1.Caption := lbl1.Caption  + str;
    globalunlock(htext);
  end;
  if hBitmap<>0 then
  begin
    img1.Picture.Bitmap.Handle :=  hBitmap;
  end;
  CloseClipBoard;
end;