HTML-Content aus dem Clipboard holen?

[PeterPanino]

Hallo! Ich möchte in Delphi XE2 mit folgender Funktion den HTML-Content aus dem Clipboard holen:

Delphi-Quellcode:

uses ... Vcl.Clipbrd, Winapi.Windows, Winapi.ActiveX; 

CF_HTML: TClipFormat; // identifier for HTML clipboard format
CF_HTML := RegisterClipboardFormat('HTML Format');

function MyClipboardAsHTML: string;
var
  Data: THandle;
  Ptr: PChar;
begin
  Result := '';
  with Clipboard do
  begin
    Open;
    try
      Data := GetAsHandle(CF_HTML);
      if Data <> 0 then
      begin
        Ptr := PChar(GlobalLock(Data));
        if Ptr <> nil then
          try
            Result := UTF8Decode((Ptr));
          finally
            GlobalUnlock(Data);
          end;
      end;
    finally
      Close;
    end;
  end;
end;

Leider kriege ich aber nur Zeichensalat. (Natürlich ist HTML-Content im Clipboard).

Ich habe alles mögliche probiert, komme aber nicht auf den Fehler.