[Investment]

  try
    ErrorText := Format('Código "%s" no existente o está incompleto.' + 
                     ' Pulse ESC para salir', [TdxTreeList.EditingText]);
  Except
  End;