复制HTML内容，然后粘贴成HTML后为什么会有乱码？

Question

复制HTML内容，然后粘贴成HTML后为什么会有乱码？
我有下面一段程序：
function TDyRecordFrm.getClipboard: string;
var fn,html:string;
    i,fl,size:integer;
    data:thandle;
    p:pointer;      //数据指针
begin
  clipboard.Open;
//  memo1.text:='';
  for i:=0 to Clipboard.FormatCount-1 do begin
    setlength(fn,100);
    fl:=GetClipboardFormatName(clipboard.Formats[i],@fn[1],200);
    setlength(fn,fl);
    if pos('HTML',fn)>0 then begin  //是HTML数据
      Data := GetClipboardData(clipboard.formats[i]);  //得到数据内存句柄
      try
        p:=GlobalLock(Data);
        size:=globalsize(data);  //得到数据大小
        setlength(html,size);    //设置保存区域
        move(p^,html[1],size);   //复制数据
      finally
      GlobalUnlock(Data);
      end;
      break;
    end;
  end;
  Result:=html;
  clipboard.close;
end;