procedure TForm1.Button1Click(Sender: TObject);
var
  CF_HTML : UINT;
  clpHandle : THandle;
  cf : TClipboard;
begin
  CF_HTML := registerclipboardformat('HTML Format');
  clpHandle := GetClipboardData(CF_HTML);
  cf := TClipboard.Create;
  if cf.HasFormat(CF_HTML) then
    memo1.Text := cf.AsText;
end;