execute ibeblock (
  ActionID variant,
  SelectedNames variant,
  SelectedNamesFmt variant,
  SelectedTypes variant,
  ParentName variant = '',
  ParentNameFmt variant = '',
  ParentType variant)
RETURNS (
  ActionCaptions variant,
  ActionDescriptions variant,
  CloseForm boolean = FALSE)
as
begin
  CRLF = ibec_CRLF();

  ActionCaptions[0] = 'Copy list of selected objects to clipboard';
  ActionDescriptions[0] = 'Copies list of selected objects to clipboard';

  if (ActionID is null) then
  begin
    suspend;
    exit;
  end;

  if (ActionID = 0) then
  begin
    s = '';
    foreach (SelectedNames as SelName key NameID) do
      s .= SelName || CRLF;
    ibec_CopyToClipboard(s, __seUTF8);
    ibec_ShowMessage('Done.');
    CloseForm = TRUE;
    Exit;
  end;
end