HTML-Content aus dem Clipboard holen?

[sx2008]

Delphi-Quellcode:

function MyClipboardAsHTML: string;
var
  Data: THandle;
  Ptr: PAnsiChar;  // *** statt PChar
begin
  Result := '';
  with Clipboard do
  begin
    Open;
    try
      Data := GetAsHandle(CF_HTML);
      if Data <> 0 then
      begin
        Ptr := PAnsiChar(GlobalLock(Data))  // *** statt PChar