Проблема с вставкой скопированного текста из Clipboard

[noname_06]

Проблема с вставкой скопированного текста.
Текст или не вставляется:

procedure TForm1.btnAddToPiggyClick(Sender: TObject);
begin
  Clipboard.Clear;
  chrm.Browser.MainFrame.Copy;
  redtPiggy.Lines.Add(TextSplitter);
  if btnAddTime.Down then
  redtPiggy.Lines.Add(TimeToStr(Now));
  redtPiggy.PasteFromClipboard;
end;

Или первый раз вставляется предыдущее содержимое буфера обмена, а со второго - то, что скопировано.

procedure TForm1.btnAddToPiggyClick(Sender: TObject);
begin
  //Clipboard.Clear;
  chrm.Browser.MainFrame.Copy;
  redtPiggy.Lines.Add(TextSplitter);
  if btnAddTime.Down then
  redtPiggy.Lines.Add(TimeToStr(Now));
  redtPiggy.PasteFromClipboard;
end;

На пустом проекте проблем нет. Delphi XE3 (в 7 то же самое).

Если зарегистрироваться в цепочке - вставляет корректно, буду думать дальше.

procedure TForm1.WMDrawClipBoard(var msg: TWMDrawClipboard);
begin
 if ClipBoard.HasFormat(CF_TEXT) then
   richedit1.PasteFromClipboard
 else
   ShowMessage('скопирован не текст');
 SendMessage(nwnd, WM_DRAWCLIPBOARD, 0, 0);
end;