& pourquoi j’n’écrirais pas ça ?

uses Windows, ...;

[...]

var
    hNextInChain    : THandle;

[...]

procedure TfrmDisabler.WMChangeCBChain(var Msg: TMessage);
var
  hRemove, hNext: THandle;
begin
  hRemove := Msg.WParam;
  hNext     := Msg.LParam;
  with Msg do
  begin
    if (hNextInChain = hRemove) then
    begin
      hNextInChain := hNext;
    end
    else if (hNextInChain <> 0) then
    begin
      SendMessage(hNextInChain, WM_ChangeCBChain, hRemove, hNext);
    end;
  end;
end;

procedure TfrmDisabler.WMDrawClipboard(var Msg: TMessage);
begin
  ManageQuote; // Ma méthode applicative où je fais ce que j'ai à faire lorsque le presse-papier change
  // Fait suivre le message à la fenêtre suivante
  if (hNextInChain <> 0) then
    SendMessage(hNextInChain, WM_DrawClipboard, 0, 0);
end;

procedure TfrmDisabler.FormCreate(Sender: TObject);
begin
  hNextInChain := SetClipboardViewer(Handle);
end;

procedure TfrmDisabler.FormDestroy(Sender: TObject);
begin
  ChangeClipboardChain(Handle, hNextInChain);
end;