unit Unit3;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;    type
  TForm3 = class(TForm)
    RichEdit1: TRichEdit;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure WMDrawClipboard (var message : TMessage);
                              message WM_DRAWCLIPBOARD;
    procedure WMChangeCBCHain (var message : TMessage);
                              message WM_CHANGECBCHAIN;
  public
    { Public declarations }
  end;    var
  Form3: TForm3;    implementation    {$R *.dfm}    { TForm3 }    uses ClipBrd, ShellApi;    var
  MangoSiguienteVisor : THandle;    procedure TForm3.WMChangeCBCHain(var message: TMessage);
begin
  if message.wParam = MangoSiguienteVisor then begin
    MangoSiguienteVisor := message.lParam;
    message.Result := 0;
  end else begin
    message.Result := SendMessage(MangoSiguienteVisor, WM_CHANGECBCHAIN,
    message.wParam, message.lParam);
  end;
end;    procedure TForm3.WMDrawClipboard(var message: TMessage);
begin
  message.Result := SendMessage(WM_DRAWCLIPBOARD, MangoSiguienteVisor, 0, 0);
  if Clipboard.HasFormat(CF_TEXT) then RichEdit1.Text := Clipboard.AsText
    else
  if Clipboard.hasFormat(CF_BITMAP) then
   with Image1.Picture.Bitmap do
      LoadFromClipboardFormat(CF_BITMAP,
                              ClipBoard.GetAsHandle(CF_BITMAP),0);
end;    procedure TForm3.FormCreate(Sender: TObject);
begin
  MangoSiguienteVisor := SetClipboardViewer(Handle);
end;    procedure TForm3.FormDestroy(Sender: TObject);
begin
  ChangeClipboardChain(Handle, MangoSiguienteVisor);
end;    end.