救命~~~读取剪贴板内容时提示（存取地址0042a573 违例）..

Question

工程Project1.exe检测到错误类 EAccessViolation,错误信息
存取地址0042a573 违例发生在模块project1.exe中。
读 在地址00000000里.在代码中操作 Clipboard.asText 时就会提示出错！
关键代码
uses Clipbrd;  public
    { Public declarations }
    NextClipHwnd:HWND;//观察链中下一个窗口句柄
    procedure WMDrawClipBoard(var AMessage: TMessage); message WM_DRAWCLIPBOARD;procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);
begin
  //将WM_DRAWCLIPBOARD
  //消息传递到下一个观察链中的窗口
  SendMessage(NextClipHwnd, AMessage.Msg, AMessage.WParam, AMessage.LParam);
  //查询剪贴板中特定格式的数据内容
  if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then
    begin
      //处理剪贴板中内
      //clipboard.clear;      form1.ComboBox1.Items.Add('0');
      form1.memo1.Lines.Add(Clipboard.asText);
      //ShowMessage(Clipboard.asText);
    end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //从观察链中删除本观察窗口
  ChangeClipboardChain(Handle, NextClipHwnd);
  //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口
  SendMessage(NextClipHwnd, WM_CHANGECBCHAIN, Handle, NextClipHwnd);
end;procedure TForm1.FormCreate(Sender: TObject);
NextClipHwnd := SetClipBoardViewer(form1.Handle);