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;
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;