[Angel]

Perdón, pero no entendí tu petición, sin embargo no creo que te sirva de mucho, pero aqui te la dejo escrita:

procedure TFieldDefsProperty.executeVerb (index:Integer);
begin
  if index=0 then      //Esta primera opción sería para poder editar los campos
  begin
  end;

  if index=1 then    //Esta segunda opción muestra una vista preliminar de los resultados.
  begin
    TDBViewer(component).Execute;
  end;
end;

function TFieldDefsProperty.GetVerb (Index:Integer):String;
begin
  if index=0 then
    result:='Edit Fields';
  if index=1 then
    result := 'Execute';
end;

function TFieldDefsProperty.GetVerbCount:Integer;
begin
  result:=2;
end;