[dec]

Hola,

Podrías echar un vistazo a las "acciones estándar" del componente "TActionList", en la pestaña "Standard" de la paleta de componentes. Este incluye acciones para "edición" que pueden resultarte útiles. En todo caso, una posible solución podría ser esta:

Código Delphi [-]
uses
  ClipBrd;

begin
  if (Trim(ClipBrd.Clipboard.AsText) <> '') then
  begin
    // El portapapeles no está vacío
  end;
end;