Clipboard

[min@y™]

procedure TMainForm.Button146Click(Sender: TObject);
const
  over9000 = 9001; //   :))))
begin
  if clipboard.hasformat(cf_text)
    then application.messagebox(pchar(copy(clipboard.astext, 1, over9000)), 'clipboard', mb_ok + mb_iconinformation);
end;

мож автор хочет хотеть показывать по тыку на кнопке содержимое буфера?